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(Tái bản lân thứ mười ba) 


NHÀ XUẤT BẢN GIÁO DỤC VIỆT NAM 


Hãy báo quản, giữ gin sách giáo khoa dé dành tặng cho các em học sinh lớp sau ! 


Chuang | 


Mo: SÓ KHÁI NIÉM 
VÉ ГАР TRINH | 
VÀ NGON NGU LẬP TRÌNH 


KHÁI NIÉM LẬP TRINH VÀ NGÓN NGỮ 
§† . LẬP TRÌNH 


Như ta biết, mọi bài toán có thuật toán đều có thể giải được trên máy tính 
điện tử. Khi giải bài toán trên máy tính điện tử, sau các bước xác định bài toán 
và xây dựng hoặc lựa chọn thuật toán khả thi là bước lập trình. 

Lập trình là sử dụng cấu trúc dữ liệu và các câu lệnh của ngôn ngữ lập trình 
cụ thể để mô tả dữ liệu và diễn đạt các thao tác của thuật toán. Chương trình 
viết bằng ngôn ngữ lập trình bậc cao nói chung không phụ thuộc vào loại máy, 
nghĩa là một chương trình cá thể thực hiện trên nhiều loại máy tính khác nhau 
Chương trình viết bằng ngôn ngữ máy có thể được nạp trực tiếp vào bộ nhớ và 
thực hiện ngay, còn chương trình viết bằng ngôn ngữ lập trình bậc cao phải được 
chuyển đổi thành chương trình trên ngôn ngữ máy mới có thể thực hiện được. 

Chương trình đặc biệt có chức năng chuyển đổi chương trình được viết bằng 
ngôn ngữ lập trình bậc cao thành chương trình thực hiện được trên máy tính được 
gọi là chương trình dịch. 


Chương trình dịch nhận đầu vào là chương trình viết bằng ngôn ngữ lập trình 
bậc cao (chương trình nguồn), thực hiện chuyển đổi sang ngôn ngữ máy (chương 


trình đích). 


Chương trình nguồn———> Chương trình dịch Chương trình đích 


Xét ví dụ, bạn chỉ biết tiếng Việt nhưng cần giới thiệu về trường của mình 
cho đoàn khách đến từ nước Mi, chỉ biết tiếng Anh. Có hai cách dé bạn thực hiện 
điều này. 

Cách thứ nhất: Ran nói bằng tiếng Việt và người phiên dịch giúp bạn dich 
sang tiếng Anh. Sau mỗi câu hoặc một vài câu giới thiệu trọn một ý, người phiên 
dịch dịch sang tiếng Anh cho đoàn khách. Sau đó, bạn lại giới thiệu tiếp và người 
phiên dịch lại dịch tiếp. Việc giới thiệu của bạn và việc dịch của người phiên 
dịch luân phiên cho đến khi bạn kết thúc nội dung giới thiệu của mình. Cách 
dich trực tiếp như vậy được gọi là thông dịch. 

Cách thứ hai: Bạn soạn nội dung giới thiệu của mình ra giấy, người phiên 
dịch dịch toàn bộ nội dung đó sang tiếng Anh rồi đọc hoặc trao văn bản đã 
dịch cho đoàn khách đọc. Như vậy, việc dịch được thực hiện sau khi nội dung 
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giói thiéu dà hoàn tát. Hai cóng viéc dó duoc thuc hién trong hai khoáng thói 
gian độc lập, tách biệt nhau. Cách dich như vậy được gọi là bién dich. 

Sau khi kết thúc, với cách thứ nhất không có một văn bản nào để lưu trữ, còn 
với cách thứ hai có hai bản giới thiệu về trường của bạn bằng tiếng Việt và bằng 
tiếng Anh có thể luu trữ để dùng lại về sau. 

Tương tự như vậy, chương trinh dich có hai loai là thông dich và bién dich. 
a) Thông dich 

Thóng dich (interpreter) duoc thuc hién bàng cách 1ар lai dáy các buóc sau: 

© Kiểm tra tính đúng đắn của câu lệnh tiếp theo trong chương trình nguồn; 

© Chuyển đổi câu lệnh đó thành một hay nhiều câu lệnh tương ứng trong 
ngôn ngữ máy; 

G Thực hiện các câu lệnh vừa chuyển đổi được. 

Nhu vậy, quá trình dich và thực hiện các câu lệnh là luân phiên. Các chương 
trình thông dịch lần lượt dịch và thực hiện từng câu lệnh. Loại chương trình dịch 
này đặc biệt thích hợp cho môi trường đối thoại giữa người và hệ thống. Tuy 
nhiên, nếu một câu lệnh nào đó phải thực hiện bao nhiêu lần thi nó phái được 
dịch bấy nhiêu lần. 

Các ngôn ngữ khai thác hệ quản trị cơ sở dữ liệu, ngôn ngữ đối thoại với hệ 
điều hành,... đều sử dụng trình thông dịch. 

b) Biên dịch 


Biên dịch (compiler) được thực hiện qua hai bước: 


® Duyệt, phát hiện lỗi, kiểm tra tính đúng đắn của các câu lệnh trong 
chương trình nguồn; 
@ Dịch toàn bộ chương trình nguồn thành một chương trình đích có thể 
thực hiện trên máy và có thể lưu trữ để sử dụng lại khi cần thiết. 
Như vậy, trong thông dịch, không có chương trình đích để lưu trữ, trong biên 
dịch cả chương trình nguồn và chương trình đích có thể lưu trữ lại để sử dụng về sau. 
Thông thường, trong môi trường làm việc trên một ngôn ngữ lập trinh cụ thể, 
ngoài chương trình dịch còn có một số thành phần có chức năng liên quan như 
biên soạn, lưu trữ, tìm kiếm, cho biết các kết quả trung gian,.... Ví dụ, Turbo 
Pascal 7.0, Free Pascal 1.2, Visual Pascal 2.I,... là các môi trường làm việc trên 
ngôn ngữ Pascal; Turbo C++, Visual C++,... là các môi trường làm việc trên 
ngôn ngữ C++. 


Các môi trường lập trình khác nhau ở những dịch vụ mà nó cung cấp, đặc biệt 
là các dịch vụ nâng cấp, tăng cường các khả năng mới cho ngôn ngữ lập trình. 


J Bài doc thém 1 
BAN BIÉT Gl VÉ CÁC NGÓN NGÜ LAP TRINH? 


Đã có hàng nghìn ngón ngữ lập trình được thiết kế và mỗi năm lại có thêm nhiều 
ngôn ngữ lập trình mới xuất hiện. Các ngôn ngữ thường được nhắc đến là: Ada, Algol, 
APL, Assembly, Basic, C, C++, Cit, Cobol, Delphi, Fortran, Java, JavaScript, Lisp, 
Logo, Pascal, Perl, PHP, Prolog, Python, Ruby,... Sự phát triển của ngôn ngữ lập trình 
gắn liền với sự phát triển của tin học. Mỗi loại ngôn ngữ phù hợp hơn với một số lớp bài 
toán nhất định. Cùng với tên các ngôn ngữ lập trình, các thuật ngữ thường được nhắc tới 
là "lap trình cấu trúc", "lap trình hướng đối tương", "Іар trinh web" 


Những ngôn ngữ lập trình hiện nay thường cung cấp các thư viện bao gồm nhiều 
hàm hỗ trợ giao diện người dùng và các thiết bị đầu cuối. Cập nhật dữ liệu theo thời 
gian thực là một hướng phát triển nhằm đáp ứng các nhu cầu đồng bộ hoá nhanh dữ 
liệu dùng chung cho nhiều nơi hay là để thoả mãn nhu cầu cần đồng bộ hoá dữ liệu của 
các dịch vụ (như trong ngân hàng, hàng không và quân sự). Ngoài việc hỗ trợ cho các 
giao diện, ngày nay hầu hết các hệ điều hành (UNIX/Linux, Netware và Windows) đều 
có khả năng đa nhiệm nâng cao hiệu quả của máy tính. Do đó, các ngôn ngữ thường có 
thêm các hàm, thủ tục hay các biến cho phép người lập trình tận dụng điều này. 

Dưới đây giới thiệu một số ngôn ngữ lập trình thông dụng: Fortran, Algol, Lisp, 
Cobol, Basic, Pascal, С, C++, Java,... 

e Fortran là một ngôn ngữ lập trình được phát triển từ những năm 1950 và vẫn được 
dùng nhiều trong tính toán khoa học cho đến hơn nửa thế kỉ sau. Tên gọi này xuất 
phát từ việc ghép các từ tiếng Anh Formula Translator nghĩa là dịch công thúc. Các 
phiên bản đầu có tên chính thức là FORTRAN. Điểm yếu của FORTRAN là thiếu 
hỗ trợ trực tiếp cho các kết cấu có cấu trúc, kiểu dữ liệu còn nghèo, không thuận lợi 
cho xử lí xâu. Fortran được phát triển ban đầu như là một ngôn ngữ thủ tục. 
Tuy nhiên, các phiên bàn mới của Fortran đã có các tính năng hỗ trợ lập trình hướng 
đối tượng. 

*  ALGOL do Uỷ ban các nhà tin học châu Âu và Hoa Ki tạo ra năm 1958, là ngôn 
ngữ tiên phong đưa ra tập các thủ tục, định kiểu dữ liệu cực kì phong phú.... và có 
ảnh hưởng mạnh tới các ngôn ngữ ra đời sau. 


LISP do John McCarthy сйа Hoc vién Cóng nghë Massachusetts tao ra пат 1958, 
là ngôn ngữ đặc biệt thích hợp cho thao tác kí hiệu và xử lí danh sách thường gặp 
trong các bài toán tổ hợp, thích hợp cho việc chứng minh định lí. Gần đây LISP 
được dùng để phát triển hệ chuyên gia và các hệ thống dựa trên tri thức. 


COBOL ra đời năm 1959, được chấp nhận dùng cho các ứng dụng xử lí dữ liệu 
thương mại, kinh doanh. 


BASIC là ngôn ngữ được phát triển năm 1963 bởi John Kemeny và Thomas Kurtz. 
BASIC là ngôn ngữ còn nhiều hạn chế như thực hiện câu lệnh chủ yếu là tuần tự từ 
trên xuống, điều khiển chương trình chỉ nhờ lệnh IF...THEN và GOSUB. 


PASCAL do Niklaus Wirth phát triển dựa trên Algol năm 1970. Pascal là tên nhà 
toán học và triết học người Pháp Blaise Pascal. Pascal là ngôn ngữ đặc biệt thích 
hợp cho kiểu lập trình cấu trúc. Cho đến nay, Pascal vẫn được dùng để giảng dạy 
về lập trình trong nhiều trường trung học và đại học trên thế giới. Đó là ngôn ngữ 
cho phép mô tả thuật toán thuận tiện. Pascal cũng phục vụ nhiều ứng dụng kĩ nghệ 
khoa học và lập trình hệ thống. Phần lớn hệ điều hành Macintosh được viết bằng 
Pascal. Hệ sắp chữ TeX được Donald Knuth viết bằng ngôn ngữ mang nhiều yếu tố 
của Pascal. Trình biên dịch Free Pascal được viết bằng Pascal là một trình biên 
dịch mạnh có khả năng biên dịch cả ứng dụng cũ và mới (phân phối miễn phí dưới 
giấy phép GNU), hỗ trợ nhiều hệ điều hành. 

C là ngôn ngữ được xây dựng bởi Dennis Ritchie năm 1972 và được dùng trong hệ 
điều hành UNIX. Từ đó C còn được dùng trong nhiều hệ điều hành khác và trở 
thành một trong những ngôn ngữ phổ dụng nhất. C rất hiệu quả và được ưa chuộng 
để viết các phần mềm hệ thống, mặc dù nó cũng được dùng cho việc viết các ứng 
dụng. Ngoài ra, C cũng thường được dùng làm ngôn ngữ giảng dạy lập trình. Ngày 
nay, C được phát triển và mang nhiều tính năng mới làm cho nó mềm dẻo thêm. 


Dennis Ritchie 


С++ là ngôn ngữ lập trình hỗ trợ lập trình cấu trúc (thủ tục, dữ liệu trüu tượng), lập 
trình hướng đối tượng. Từ thập niên 1990, C++ đã trở thành một trong những ngôn 
ngữ phổ biến nhất. C++ góp phần xây dựng những ứng dụng lớn nhất hiện nay như 
hệ điều hành Windows, trình duyệt và máy tìm kiếm Google,... Năm 1983, Bjarne 
Stroustrup ở phòng thí nghiệm Bell đã phát triển C++. Trong suốt thập niên 1980 
"C với các lớp" được coi là một bản nâng cao của ngôn ngữ C. Tên C++ được dùng 
lần đầu tiên vào tháng 12/1983. Cái tên C++ cho biết C++ là ngôn ngữ được phát 


triển trên cơ sở ngôn ngữ C. 


Java được khởi đầu bởi James Gosling và các đồng 
nghiệp ở Sun Microsystems năm 1991 là một phần của 
Dư án Xanh. Ban đầu ngôn ngữ này được gọi là Oak (có 
nghĩa là cây sồi, do bên ngoài cơ quan của ông Gosling 
có trồng nhiều loại cây này). llo dự định phát triển ngôn 
ngữ này thay cho C++. Công ti Sun Microsystems đang 
giữ bàn quyền và phát triển Java thường xuyên. Java 
được phát hành vào năm 1994, rồi nó trở nên nổi tiếng 
khi Netscape tuyên bố tại hội thảo SunWorld năm 1995 
là trình duyệt Navigator của họ sẽ hỗ trợ Java. Java có 
thể tương thích với nhiều họ máy như PC, Macintosh, 
tương thích với nhiều hệ điều hành như Windows, Linux. 
Người ta nói Java là ngôn ngữ lập trình một lần (trên một 
máy) nhưng có thể chạy nhiều lần (trên nhiều máy). 
Java được sử dụng chủ yếu để lập trình trên môi trường 
mạng và Internet. 


James Gosling 


CÁC THÀNH PHÁN CÚA NGÓN NGÜ 
§2 . LẬP TRÌNH 


1. Các thành phán cơ bán 

Mỗi ngôn ngữ lập trinh thường có ba thành phán cơ bản là bảng chữ cái, 
cú pháp và ngữ nghĩa. 

a) Bảng chữ cái là tập các kí tự được dùng để viết chương trình. Không được 
phép dùng bất kì kí tự nào ngoài các kí tự quy định trong bảng chữ cái. 

Trong Pascal, bảng chữ cái bao gồm các kí tự sau: 


è Các chữ cái thường và các chữ cái in hoa của bảng chữ cái tiếng Anh: 


abcdefghijklmnopdqrstuvwxyz 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 


» 10chŭső thâp phân Á Râp:0 123456789 


е Các kí tự đặc biệt: 


АЕ А = &|ð ki 


„Жж е р ЕРЕ РА ГЕР 


dáu cách (та ASCII 32) 


Bàng chü cái cüa các ngón ngü làp trinh nói chung khóng khác nhau nhiéu. 
Ví dụ, bảng chữ cái của ngôn ngữ lập trinh C++ chi khác Pascal là có sử dung 
thêm các kí tự như dấu nháy kép ("), dấu số ngược (X, dấu chấm than (!). 


b) Cú pháp là bộ quy tắc để viết chương trình. Dựa vào chúng, người lập 
trình và chương trình dịch biết được tổ hợp nào của các kí tự trong bảng chữ cái 
là hợp lệ và tổ hợp nào là không hợp lệ. Nhờ đó, có thể mô tả chính xác thuật 
toán để máy thực hiện. 


e) Ngữ nghĩa xác định ý nghĩa thao tác cần phải thực hiện, ứng với tổ hợp kí 
tự dựa vào ngữ cảnh của nó. 


Vídu 

Phán lón các ngón ngü láp trinh déu sit dung dáu cóng (+) dé chi phép cóng. 
Xét các biểu thức: 

А +В (1) 
I+ J (2) 

Giả thiết A, B là các đại lượng nhận giá trị thực và 7, J là các đại lượng nhận 
giá trị nguyên. Khi đó dấu "+" trong biểu thức (1) được hiểu là cộng hai số thực, 
dấu "+" trong biểu thức (2) được hiểu là cộng hai số nguyên. Như vậy, ngữ nghĩa 
dấu "+" trong hai ngữ cảnh khác nhau là khác nhau. 


Tóm lại, cú pháp cho biết cách viết một chương trình hợp lệ, còn ngữ nghĩa 
xác định ý nghĩa của các tổ hợp kí tự trong chương trình. 

Các lỗi cú pháp được chương trình dich phát hiện và thong báo cho người lập 
trình biết. Chỉ có các chương trình không còn lỗi cú pháp mới dịch được sang 
ngôn ngữ máy. 

Các lỗi пої nghĩa khó phát hiện hơn. Phần lớn các lỗi ngữ nghĩa chỉ được 
phát hiện khi thực hiện chương trình trên dữ liệu cụ thể. 

2. Một số khái niệm 
a) Tên 

Mọi đối tượng trong chương trình đều phải được đặt tên theo quy tắc của 
ngôn ngữ lập trình và từng chương trình dịch cụ thể. 

Trong Turbo Pascal, tên là một dãy liên tiếp không quá 127 kí tự bao gôm 
chữ số, chữ cái hoặc dấu gạch dưới và bắt đầu bằng chữ cái hoặc dấu gạch dưới. 
Trong chương trình dich Free Pascal, tên có thể có độ dài tới 255 kí tự. 

Ví dụ, trong ngôn ngữ Pascal: 

a Cáctênđúng: A 

R21 
P21 c 
E- 

* Các tênsai: 

A BC (chúa dáu cách) 
бра (bát đầu bằng chữ số) 


x#y (chứa kí tự "#" không hợp lệ) 
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Ngôn ngữ Pascal không phân biệt chữ hoa, chữ thường trong tên. Một số 
ngôn ngữ lập trình khác (ví dụ như C++) phân biệt chữ hoa, chữ thường. Ví dụ, 
AB và Ab là một tên trong Pascal, nhưng lại là hai tên khác nhau trong C++. 

Nhiều ngôn ngữ lập trình, trong đó có Pascal, phân biệt ba loại tên: 

œ Tên dành riêng; 

ә Tên chuẩn; 

е Tên do người lập trình đặt. 

Tên dành riêng 

Một số tên được ngôn ngữ lập trình quy định dùng với ý nghĩa riêng xác định, 
người lập trình không được sử dụng với ý nghĩa khác. Những tên này được gọi là 
tên dành riêng (còn được gọi là từ khoá). 

Ví du. Một số tên dành riêng: 

Trong Pascal: program, uses, const, type, var, begin, end. 

Trong C++: main, include, if, while, void. 

Tën chuán 

Một số tên được ngôn ngữ lập trinh dùng với ý nghĩa nhất dinh nào đó. 
Những tên này được gọi là гёп chuẩn. Tuy nhiên, người lập trình có thể khai báo 
và dùng chúng với ý nghĩa và mục đích khác. 

Y nghĩa của các tên chuẩn được quy dinh trong các thit viện của ngôn ngữ 
lập trình. 

Ví dụ. Một số tên chuẩn 


— Trong Pascal: 


abs integer real 
sar longint extended 
sqrt byte break 

— Trong C++: 
cin cout getchar 


Tên do người lập trình đặt 


Tên do người lập trình đặt được dùng với ý nghĩa riêng, xác định bằng cách 
khai báo trước khi sử dụng. Các tên này không được trùng với tên dành riêng. 
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Vídu 
Tên do người lập trình đặt: 
A1 
DELTA 
CT Vidu 
b) Háng và bién 
Hàng 
Háng là dai luong có giá tri khóng thay dói trong quá trinh thuc hién 
chương trình. 
Trong các ngôn ngữ lập trình thường có các hằng số hoc, hằng lógic, hằng xâu. 
e Hàng số học là các số nguyên hay số thực (dấu phẩy tinh hoặc dấu phẩy 
động). 
• Hàng lógic là giá trị đứng hoặc sai tương ứng với true hoặc false. 
e Hằng хаи là dãy kí tự trong bộ mã ASCII. Khi viết, dãy kí tự này được 
đặt trong cặp dấu nháy (Pascal dùng dấu nháy đơn, còn C++ dùng dấu 
nháy kép). 


Ví du 
— Hằng số học: 2 0 -5 +18 
aa -22.36 +3.14159 0.5 
-2.236E01 1.0E-6 
— Hàng lógic: 
+ Trong Pascal: TRUE FALSE 
— Hàng xâu 
+ Trong Pascal: "Information!" "Тор 11A' 
+ Trong C++: "Information" "Тор 11А" 


Chú y: Hằng dấu nháy đơn trong Pascal được viết là "". Dé có хаи tiếng Anh Im 
a student, trong Pascal cần viết là 'I"m a student. 

Bién 

Biến là đại lượng được đặt tên, dàng dé lưu trữ giá trị và giá trị có thé được 
thay đổi trong quá trình thực hiện chương trình. 

Tuy theo cách lưu trữ và xử lí, Pascal phân biệt nhiều loại biến. Các biến 
dùng trong chương trình đều phải khai báo. Việc khai báo biến sẽ được trình bày 
ở các phần sau. 
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c) Chú thích 

Có thé dàt các doan chú thích trong chuong trinh nguón. Các chú thích này 
giúp cho người đọc chương trinh nhận biết ý nghĩa của chương trinh đó dé hon. 
Chú thích không ảnh hưởng đến nội dung chương trình nguồn và được chương 
trình dịch bỏ qua. 

Trong Pascal các đoạn chú thích được đặt giữa cặp dấu { và } hoặc (* và *). 
Một trong những cách tạo chú thích trong C++ là đặt chúng giữa cặp dấu /* và */. 


TÓM TẮT 


Cần có chương trình dịch để chuyển chương trình nguồn thành chương 
trình đích. 


Có hai loại chương trình dịch: thông dịch và biên dịch. 
Các thành phần của ngon ngữ lập trinh: bảng chữ cải, cú pháp và 
ngữ nghĩa. 
Mọi đối tượng trong chương trình đều phải được đặt tên: 

о Tên dành riêng: Được dùng với ý nghĩa riêng, không được dùng 


với ý nghĩa khác. 
Tên chuẩn: Tên dùng với ý nghĩa nhất định, khi cần dùng với ý 
nghĩa khác thì phải khai báo. 
o Tên do người lập trình đặt: Cán khai báo trước khi sử dụng. 
Hằng: Đại lượng có giá trị không thay đổi trong quá trình thực hiện 
chương trình. 
Biến: Đại lượng được đặt tên. Giá trị của biến có thể thay đổi trong quá 
trình thực hiện chương trình. 


CÂU HỎI VÀ BÀI TẬP 


1. Tai sao người ta phái xây dụng các ngôn ngữ lộp trinh bậc cao? 
2. Chương trinh dich là gi? Tai sao cán phổi có chương trình dich? 
3. Biên dịch và thông dịch khác nhau như thế nào? 
4. Hày cho biết các điểm khác nhau giữa tên dành riêng và tên chuổn. 
5. Hày tụ viết ra bo tên đúng theo quy tác của Pascal. 
6. Hày cho biết những biểu diễn nào dưới dày không phải là biểu diễn 
hằng trong Pascal và chỉ rõ lỗi trong tùng trường hợp: 
o) 150.0 b)-22 с) 6,23 а) '43' 
е) А20 f) 1.06E- 15 9 4+6 h) 'C 
j) TRUE 
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J Bài doc thém 2 
NGÓN NGÜ PASCAL 


1. Vài nét về tác giả của ngón ngữ Pascal 

Giáo su Niklaus Wirth, tác giả của ngón ngữ Pascal sinh 
nàm 1934 tai Thuy Si. Óng tót nghiép Dai hoc Cóng nghë Lién 
bang Thuy Sĩ (ETH) tại thành phó qué hương Zurich vào năm 
1959. Óng nhàn bàng Thac si tai truóng Bai hoc Tóng hop 
Laval ó Quebec, Canada nám 1960. 


Năm 1963, tại Đại học Tổng hợp California (Mi) dưới sự 
lãnh đạo của giáo sư Harry Huskey ông thực hiện đề án mở rộng d 
ngôn ngữ Algol-60 (ngôn ngữ Euler) và bảo vệ luận án tiến sĩ. 

Trong các năm 1963-1967, ông giảng day tại Đại học Tổng hợp Stanford (Mi). 
Cũng trong thời gian này ông được mời vào nhóm chuyên gia quốc tế IFIP thiết kế 
Algol-68. 

Năm 1967, Wirth trở về nước và giáng dạy tai Tổng hợp Zurich. 

Năm 1968, ông chuyển sang ETH, tại đây ông bắt đầu tham gia thiết kế Pascal. 

Năm 1970, chương trình dịch Pascal đầu tiên được hoàn thành. 

Trong thời gian 1978-1981, Wirth lãnh đạo dự án thiết kế ngôn ngữ Modula-2, máy 
tính cá nhân 16-bit Lilith dựa trên nó và hệ điều hành OS Medos. Tất cả các chương 
trình, kể cả chương trình hệ thống, được thực hiện hoàn toàn trên Modula-2. 

Năm 1984, do công lao to lớn trong việc phát triển các ngôn ngữ lập trình và thiết 
kế máy tính cá nhân Lilith, ông được giải thưởng Alan Turing - giải thưởng cao quý nhất 
trong giới Tin học, mà về ý nghĩa được coi là tương đương với giải Nobel. 

Trong thời gian 1986-1989, Wirth lãnh đạo dự án phát triển ngôn ngữ Oberon, hệ 
điều hành hướng đối tượng Oberon và trạm làm việc 32-bit Ceres. Rất nhiều ý tưởng 
của dự án này được các đồng nghiệp từ phòng thí nghiệm Sun Labs sử dụng cho ngôn 
ngữ và công nghệ Java. 

Từ năm 1990 ông lãnh đạo Viện Các hệ thống máy tính tại ETH. 

Năm 1999, ông nghỉ hưu và trở thành Giáo sư danh dự của ETH. 


14 


2. Pascal - Ngón ngü cüa hoc duóng? 

Pascal! Hói có nguói làp trinh nào khóng biét ngón ngü này? Thành cóng vang dói 
của nó bát đầu vào những năm 1980, thời kì của cuộc cách mạng trong công nghiệp 
máy tính và giai đoạn nở rộ của lập trình có cấu trúc. Có thể nói Pascal xứng đáng là 
điểm khởi đầu cho một kỉ nguyên mới của các ngôn ngữ lập trình. 

Pascal – Sự ra đời và đặc điểm 

Vào đầu năm 1971, bản mô tả ngôn ngữ mới của Viện Công nghệ Liên bang 
Thuy Sĩ được công bố trong số đầu tiên của tạp chí Acta Informatica. Sự ra đời của 
Pascal có thể được tính từ thời điểm này. 

Tác giả của nó, Giáo sư Niklaus Wirth trở nên nổi tiếng vì sự xuất hiện của Pascal. 
Những dự án sau này của ông chứng minh hùng hồn cho thế giới rằng chìa khoá tới các 
bí mật của máy tính chính là ở sự kết hợp hài hoà giữa Toán hoc, Công nghệ và Lập 
trình. Và nếu tiếp cận vấn đề một cách hợp lí thì có thể tạo ra các ngôn ngữ, hệ điều 
hành và ngay cả các máy tính tuyệt vời vượt các chuẩn công nghiệp,... chỉ bằng sức lực 
của những sinh viên. 

Người ta thường nói đến các điểm khác biệt của Pascal so với những ngôn ngữ 
khác, như ngôn ngữ C. Nhưng chính Dennis Ritchie, tác giả của C đã phát biểu (1993): 
"Tôi khẳng định rằng Pascal rất gần với C. Hai ngôn ngữ này khác biệt về chỉ tiết, 
nhưng về cơ sở chúng là giống nhau... Khi nhìn vào các kiểu dữ liệu, cũng như các 
phép toán trên chúng, ta có thể phát hiện ra những sự giống nhau rất lớn, mặc dù rằng 
ý đồ của Wirth khi tạo ra Pascal rất khác với ý đồ của chúng tôi khi tạo ra C. Wirth tạo 
ngôn ngữ để giảng dạy và do vậy tất nhiên cần đáp ứng các yêu cầu sư phạm". 

Khác với C, Pascal không được tạo ra để làm ngôn ngữ lập trình hệ thống. Để đề 
cao tính đơn giản và hiệu quả dựa trên mức độ hiểu về khoa học lập trình thời bấy giờ, 
Wirth chủ tâm chấp nhận các han chế của ngôn ngữ, trước tiên trong các vấn đề liên 
quan đến thế giới bên ngoài (vào/ra và các công cụ phụ thuộc hệ thống). Mặc dù vậy, 
nếu nghĩ rằng Pascal là ngôn ngữ chỉ dành để giảng dạy thì sẽ sai lầm. Hãy nghe chính 
ý kiến của Wirth về vấn đề này (1984): "Có người cho rằng Pascal được thiết kế như 
một ngôn ngữ để giảng dạy. Mặc dù điều này là đúng, nhưng việc sử dụng nó để giảng 
dạy không phải là mục đích duy nhất. Thực tế, tôi không tin vào sự thành công của việc 
áp dụng trong khi học các công cụ và phương pháp mà không thể sử dụng để giải quyết 
các bài toán thực tế. Theo các tiêu chuẩn ngày nay thì Pascal có những nhược điểm rõ 
ràng khi lập trình các hệ thống lớn, nhưng 15 năm trước, nó là thoả hiệp hợp lí giữa cái 
mong muốn và hiệu quả". 
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Pascal và láp trinh có cáu trúc 


Ngôn ngữ Pascal được Wirth tạo ra dưới ảnh hưởng các tư tưởng của C. A. R. 
Hoare, đăng trong công trình "Bàn về cấu trúc dữ liệu" (Notes on Data Structuring, 
Academic Press, 1972). Đóng góp của nhà bác học người Anh lớn tới mức có thể gọi 
ông là cha đỡ đầu của Pascal 

Pascal được coi như khởi đầu của kỉ nguyên lập trình cấu trúc. Tất cả bắt đầu từ bài 
báo của chuyên gia người Hà Lan E. W. Dijkstra "Lập trình cấu trúc" (Structured 
Programming, 1969). Trong bài báo này ông đề xuất hạn chế các cấu trúc điều khiển 
chương trình chỉ ở ba dạng là tuần tự, re nhánh và lặp. Từ đó suy ra rằng câu lệnh 
chuyển vô điều kiện (goto) trong các ngôn ngữ ALGOL và PL/1 (rất phổ biến thời bấy 
giờ) là hoàn toàn không cần thiết. Thật sự là Wirth cũng không dám loại câu lệnh này 
khổi Pascal. Nhưng điều chủ yếu nằm ở chỗ khác: Lập trình cấu trúc liên quan đến 
nguyên tắc "từ trên xuống dưới" (làm mịn từng bước), yêu cầu tính cấu trúc của điều 
khiển và dữ liệu, dựa vào sự đơn gián và cơ sở toán hoc mà tăng độ tin cậy của phần 
mềm. Tất cả những điều này đều khả thi nhờ các khả năng của Pascal. 

Về ý đồ khi xây dựng Pascal, Wirth viết: "Điểm mới của Pascal là đưa ra các cấu 
trúc và kiểu dữ liệu phong phú, cũng giống như ALGOL đưa ra các loại cấu trúc điều 
khiển. Trong ALGOL chỉ có ba kiểu dữ liệu cơ sở: các số nguyên và thực, giá trị chân lí, 
mảng; Pascal đã đưa thêm các kiểu dữ liệu cơ sở và còn cho khả năng xác định những 
kiểu cơ sở mới (kiểu liệt kê, kiểu miền con), cũng như các dạng cấu trúc dữ liệu mới: 
bán ghi, tập hợp, tệp, mà một số trong chúng đã có trong COBOL. Và tất nhiên, quan 
trọng nhất là tính đệ quy trong việc mô tả các cấu trúc và hệ quả của điều này là khả 
năng kết hợp và lồng các cấu trúc" 


Pascal có tiếp tục tồn tại? 


Bé kết luận, xin trích dẫn lời của Dennis Ritchie tác giả ngôn ngữ C: " 
ngôn ngữ thanh lịch. Nó vẫn tiếp tục tồn tại. Nó đã khởi nguồn cho không ít ngôn ngữ 


đàn em và có Ảnh hưởng sâu sắc đến việc thiết kế các ngôn ngữ lập trình nói chung" 


ascal là một 
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еси 


ones: TRINH BON GIÁN 


83. CÁU TRÜC CHUONG TRINH 


1. Cấu trúc chung 

Nói chung, chương trinh được viết bằng một ngón ngữ lập trinh bậc cao 
thường gồm phán khai báo và phán thân. Phần thân chương trình nhất thiết phải 
có. Phần khai báo có thể có hoặc không tuỳ theo từng chương trình cụ thể. 

Khi diễn giải cú pháp của ngôn ngữ lập trình người ta thường sử dụng ngôn ngữ 
tự nhiên. Các diễn giải bằng ngôn ngữ tự nhiên được đặt giữa cặp dấu < và >. Các 
thành phần của chương trình có thể có hoặc không được đặt trong cặp đấu [ và ]. 


Với quy ước trên, cấu trúc của một chương trình có thể được mô tả như sau: 
[< phần khai báo >] 
<phán thân> 


2. Các thành phần của chương trình 


a) Phán khai báo 
Có thể có các khai báo cho: tên chương trình, thư viện, hằng, biến và chương 
trình con. 
Khai báo tên chương trình 
Phần này có thể có hoặc không. Với Pascal, nếu có, phần khai báo tên 
chương trình bắt đầu bằng từ khoá program, tiếp đến là tên chương trình: 
program <iên chương trình>; 


trong đó, tén chương trinh là tên do người lập trình đặt theo đúng quy dinh 
vé tên. 


Ví du 
program Phuong trinh B2; 
program Vi du; 


Khai báo thu 


Mỗi ngón ngữ lập trình thường có sẵn một só thư viện cung cấp một số 
chương trình thông dụng đã được lập sản. Để sử dụng các chương trình đó cần 
khai báo thư viện chứa nó. 
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Ví du. Khai báo thu vién 
— Trong Pascal: 
uses crt; 
— Trong C++: 
#inelude <stdio.h> 
#include <conio.h > 
Thu viện crt trong Pascal hoặc sídio.h và conio.h trong C++ cung cáp các 
chương trình có sẵn để làm việc với màn hình và bàn phím. Ví dụ, muốn xoá 
những gì đang có trên màn hình: 
— Trong Pascal, sau khi khai báo thư viện crt, ta dùng lệnh: 
clrscr; 
— Trong C++, sau khi khai báo thư viên conio.A, ta dùng lệnh: 


elrscr(); 


Khai báo hàng 
Ví du. Khai báo hàng 
— Trong Pascal: 
const MaxN = 1000; 
PI = 3 14165 
KQ = 'Ket qua:'; 
— Trong C++: 
const int MaxN = 1000; 
const float PI = 3.1416; 
const char* KQ = "ketqua:"; 


Khai báo hằng thường được sử dụng cho những giá trị xuất hiện nhiều lần 
trong chương trình. 

Khai báo biến 

Tất cả các biếu dùng Uong chương tình đều phải được đặt tên và khai báo 
cho chương trình dịch biết để lưu trữ và xử lí. Biến chỉ nhận một giá trị tại mỗi 
thời điểm thực hiện chương trình được gọi là biến đơn. 

Ví du 

Khi khảo sát phương trình đường thẳng ax + by + c = 0, các hệ số a, b, c có 
thể được khai báo như những biến đơn. 

Cách khai báo biến được trình bày riêng trong §5. 

Khai báo và sử dụng chương trình con được trình bày trong chương VI. 
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b) Phán thán chuong trinh 

Рау lệnh trong pham vi được xác dinh bởi cặp dấu hiệu mở đầu và kết thúc 
tao thành thân chương trình. 

Ví du. Thân chương trình trong Pascal: 


Tén dành riéng 
bát dáu 

тёп dành riêng 
kết thúc 


3. Ví dụ chương trình đơn giản 
Dưới đây xét một vài ví dụ về những chương trình đơn giản. 
Ví dụ I. Chương trình sau thực hiện việc đưa ra màn hình thông báo 
"Xin chao cac ban!". 


begin 


[<Dấy lệnh>] 


end. 


Trong C++ 


#include <stdio.h> 
void main () 


Trong Pascal 


program vi du; 
begin í 
writeln('Xin chao cac ban!'); 
end. 


printf("Xin chao cac ban!"); 


j 


— Phán khai báo chi có khai báo tén 
chuong trinh góm tén dành riéng 
program và tên chương trình là 


— Phần khai báo chi có một câu lệnh 
include khai báo thư viện stdio.h. 
— Phần thân chương trình chỉ có một 


vi du. 

— Phán thán chuong trinh chi có mót 
câu lệnh writeln, đưa thông báo ra 
màn hình. 


câu lệnh printf đưa thông báo ra 
màn hình. 


Ví du 2. Chương trình Pascal sau dua các thông báo "Xin chao cac ban!" và 
"Moi cac ban lam quen voi Pascal" ra màn hình. 
begin 
writeln('Xin chao cac ban!'); 
writeln('Moi cac ban lam quen voi Pascal'); 
end. 
Chương trình trên không có phần khai báo. Phần thân chương trình có hai 
câu lệnh đưa hai thông báo tương ứng ra màn hình. 
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84. MÓT SÓ KIÉU DÜ LIÉU CHUÁN 


Các bài toán trong thực tế thường có dữ liệu vào và kết quà ra thuộc những 
kiểu dř liệu quen biết như số nguyên, số thực, kí tu,... Khi cần lập trình cho 


những bài toán như vậy, người lập trình sử dụng các kiểu dữ liệu đó thường gặp 
một số hạn chế nhất định, phụ thuộc vào các yếu tố như dung lượng bộ nhớ, khả 
năng xử lí của CPU,... 


Vì vậy, mỗi ngôn ngữ lập trình thường cung cấp một số kiểu dữ liệu chuẩn 
cho biết phạm vi giá trị có thể lưu trữ, dung lượng bộ nhớ cần thiết để lưu trữ và 
các phép toán tác động lên dữ liệu. Dưới đây xét một số kiểu dữ liệu chuẩn 


thường dùng cho các biến đơn trong Pascal. 


1. Kiểu nguyên 


Kiểu Bộ nhớ lưu trữ một giá trị | Phạm vi giá trị 

byte 1 byte từ 0 đến 255 

integer 2 byte tir -32768 dén 32767 

word 2 byte tir 0 dén 65535 

longint 4 byte 672147483648 đến 2147483647 


2. Kiéu thuc 


Có nhiều kiểu dàng dé khai báo các đại lượng nhận giá trị là ső thực. Thường 
dùng hơn cả là các kiểu được liệt kê trong 


ảng sau: 


Kiểu Bộ nhớ lưu trữ một giá trị | Phạm vi giá trị 

real 6 byte 0 hoàc có giá tri tuyét dói nám trong 
phạm vi từ 2,9 x 10 ^? đến 1,7 x 1098 

extended 10byte 0 hoàc có giá tri tuyét dói nám trong 
phạm vi từ 104222 đến 104932 
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3. Kiéu kí tu 

Ta hiểu kí tu là các kí tự thuộc bó mã ASCII gồm 256 kí tu có mà ASCII 
thập phân từ 0 đến 255. 

Ví dụ, kí tự A có mã ASCII là 65, kí tu а có mã ASCII là 97. Kí tự đặc biệt, 
dùng dé thể hiện sự ngăn cách giữa hai từ viết liên tiếp trong các văn bản, là đấu 
cách. Dấu cách được gõ bằng phím Space — phím dài nhất trên bàn phím và có 
mã ASCII bằng 32. 


Kiểu Bộ nhớ lưu trữ một giá trị | Phạm vi giá trị 


char 1 byte 256 kí tự trong bộ mã ASCII 


4. Kiểu lôgic 


Kiểu Bộ nhớ lưu trữ một giá trị | Phạm vi giá trị 


boolean 1 byte true hoặc false 


Ghi chú: Người lập trình cần tìm hiểu đặc trưng của các kiểu dữ liệu 
chuẩn được xác định bởi bộ dịch và sử dụng để khai báo biến. 


$5. KHAI BÁO BIÉN 


Nhu đã nêu ở trên, mọi biến dùng trong chương trinh đều cán khai báo tên và 
kiểu dữ liệu. Tên biến dùng để xác lập quan hệ giữa biến với địa chỉ bộ nhớ nơi 
lưu trữ giá trị biến. Mỗi biến chỉ được khai báo một lần. Trong phần này ta chỉ 
xét khai báo các biến đơn. 

Trong Pascal, khai báo biến bắt đầu bằng từ khoá var có dạng: 

var «danh sách bién»: <kiểu dữ liéu»; 
trong dó: 

* danh sách bién là một hoặc nhiều tên biến, các tên biến được viết cách 

nhau bởi dấu phẩy; 

ə kiểu dữ liệu thường là một trong các kiểu dữ liệu chuẩn hoặc kiểu dữ liệu 

do người lập trình định nghĩa (được trình bày trong chương IV). 


Sau tit khoá var có thé khai báo nhiéu danh sách bién khác nhau, túc là 
cấu trúc: 

«danh sách bién»: <kiểu dữ liéu»; 
có thé xuát hién nhiéu lán. 

Ví dụ I 

Giả sử trong chương trinh cần các biến thực A, B, C, D, XI, X2 và các biến 
nguyên M, N. Khi đó có thể khai báo các biến đó như sau: 

var 
A¿ ñ, С. D. Xi, X?? real. 
M, N: integer; 
Vídu 2 
Xét khai báo biến: 
var 
X, Y, Z: real; 
£k Glar: 
I, J: byte; 
N: word; 

Trong khai báo này có ba biến thuc X, Y, Z. Bộ nhớ cấp phát cho ba biến này 
là 18 byte (3 x 6 = 18). C là biến kí tu và bó nhớ dành cho nó là 1 byte. Các biến 
I, J nhàn giá tri nguyén trong pham vi tit 0 dén 255 và bó nhó dành cho mói bién 
là 1 byte. Biến N cũng nhận các giá trị nguyên, nhung trong pham vi từ 0 đến 
65535. Bộ nhớ cấp phát cho biến N là 2 byte. Như vậy, tổng bộ nhớ dành cho 
các biến đã khai báo là: 

18+1+2+2= 23 (byte). 


Một số chú ý khi khai báo biến: 


e Сап đặt tên biến sao cho gợi nhớ đến ý nghĩa của biến đó. Điều này rất có lợi 
cho viêc doc, hiểu và sửa đổi chương trình khi cần thiết. 

Ví dụ, cần đặt tên hai biến biểu diễn điểm toán, điểm tin thì không nên vì ngắn 
gon mà đặt tên biến là d1, d2 mà nên đặt là dtoan, dtin. 

æ Không nên đặt tên biến quá ngắn hay quá dài, dễ mắc lỗi khi viết nhiều lần tên 
biến. Ví dụ, không nên dùng d1, d2 hay diemmontoan, diemmonfin cho điểm 
toán, điểm tin của học sinh. 

e Khi khai báo biến cần đặc biệt lưu ý đến phạm vi giá trị của nó. Ví dụ, khi khai 
báo biến biểu diễn số học sinh của một lớp có thể sử dụng kiểu byte, nhưng 
biến biểu diễn số học sinh của toàn trường thì phải thuộc kiểu word. 
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6 PHÉP TOÁN, BIÉU THÚC, 
§ - CÂU LỆNH GAN 


Để mô tả các thao tác trong thuật toán, mỗi ngôn ngữ lập trình đều xác định 
và sử dụng một số khái niệm cơ bản: phép toán, biểu thức, gán giá trị cho biến. 


Dưới đây sẽ xét các khái niệm đó trong Pascal. 


1. Phép toán 
Tuong tự trong toán học, trong các ngôn ngữ lập trình đều có những phép 
toán số học như cộng, trừ, nhân, chia trên các đại lượng thực, các phép toán chia 


nguyên và lấy phần dư, các phép toán quan hé... 


Bảng dưới đây là kí hiệu các phép toán đó trong toán và trong Pascal: 


Phép toán Trong toán học Trong Pascal 
Các phép toán sốhọc | + (cộng), - (trừ), x (nhân), div (chia nguyên), +,—, *, div, 
với số nguyên mod (lấy phần du) mod 
Các phép toán số học | + (cộng), - (trừ), x (nhân), : (chia) Stu 
với số thực 
Các phép toán quan hệ | < (nhỏ hơn), < (nhỏ hơn hoặc bằng), > (lớn <, <=, >, 
hon), > (lón hon hoác bàng), = (bàng), zs 
= (khác) 
Các phép toán lôgic — (phủ dinh), v (hoặc), ^ (và) not, or, and 


Chü y: - Két quá cüa các phép toán quan hé cho giá tri lógic. 


~ Một trong những ứng dung của phép toán lógic là để tao ra 
các biểu thức phức tap từ các quan hé đơn giản. 


2. Biéu thúc só hoc 


Trong lập trình, biểu thức số hoc là một biến kiểu số hoặc một hằng số hoặc 


các biến kiểu số và các hằng số liên kết với nhau bởi một số hữu hạn phép toán 


số học, các dấu ngoặc tròn ( và ) tạo thành một biểu thức có dạng tương tự như 


cách viết trong toán học với những quy tắc sau: 


= C 


truóng hop cán thiét; 


. у 


iét lần lượt từ trái qua phải; 


* Không được bó qua dấu nhân (*) trong tích. 


Cácp 
. TI 


ə Trong dãy 
phải, theo thứ tự các phép toán nhân (>), chia (/), chia nguyên (div), lấy 


hi 


Ví dụ 


hép toán duoc thuc hién theo thú tu: 


huc hién các phép toán trong ngoàc truóc; 


ёп sau. 
Biểu thức trong toán hoc Biểu thức trong Pascal 
5a+6b 5*a + 6'b 
a x'ylz 

Ax2+ Bx4 C A*X*x + B'X +С 

x+y x-z 

x 1 xy (х + yy(x - 1/2) - (x - 2)/(х*у) 
2 


Chú y: - Nếu biểu thức chứa một hằng hay biến kiểu thực thì ta có biểu 
thức số học thực, giá trị của biểu thức cũng thuộc kiểu thực. 


— Trong một số trường hợp nên dùng biến trung gian để có thể 
tránh được việc tính một biểu thức nhiều lần. 


hỉ dùng cặp ngoặc tròn để xác định trình tự thực hiện phép toán trong 


các phép toán không chứa ngoặc thì thực hiện từ trái sang 


phán dư (mod) thực hiện trước và các phép toán cộng (+), trừ (-) thực 
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3. Hàm số học chuán 

Dé lập trinh được dé dàng, thuận tiện hơn, các ngón ngữ lập trinh đều có thư 
viện chứa một số chương trình tính giá trị những hàm toán học thường dùng. Các 
chương trình như vậy được gọi là các hàm số học chuẩn. Mỗi hàm chuẩn có tên 
chuẩn riêng. Đối số của hàm là một hay nhiều biểu thức số học và được đặt trong 
cặp ngoặc tròn ( và ) sau tên hàm. Bản thân hàm chuẩn cũng được coi là một 
biểu thức số học và nó có thể tham gia vào biểu thức số học như một toán hạng 


(giống như biến và hằng). Kết quả của hàm có thể là nguyên hoặc thực hay phụ 
thuộc vào kiểu của đối số. 
Bảng dưới đây cho biết một số hàm chuẩn thường dùng. 
та 
Нат Biểu diễn trong | Kigu đối số | Kiểu kết quả 
Pascal 
" 2 Thựchoặc | Theo kiểu của 
Bình phương x sqr(x) nguyên đối số 
š 3 Thuc hoác 
Càn bàc hai sqrt(x) nguyén Thuc 
Vra er PE Thựchoặc | Theo kiểu của 
Giá trị tuyệt đối М abs(x) nguyén đối số 
Lôgarit tự nhiên Inx In(x) Thuc Thuc 
Luỹ thừa của só e ех ехр(х) Thuc Thuc 
Sin sinx sin(x) Thuc Thuc 
Cos Cosx cos(x) Thuc Thuc 
Vídu 


bib? 4a 


Biéu thúc toán hoc = trong Pascal có thé viét duói dang: 


a 
(-b*sqrt (b*b - 4*a*c))/ (2*a) 
hoặc 
(—b+sqrt(sqr(b)- 4*a*c) ) /2/a 
Ngoài những hàm số học chuẩn trên, còn có các hàm chuẩn khác được giới 
thiệu trong những phần sau. 
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4. Biéu thúc quan hé 

Hai biểu thức cùng kiểu liên kết với nhau bởi phép toán quan hé cho ta một 
biểu thức quan hệ. 

Biểu thức quan hệ có dạng: 

<biểu thức 1> «phép toán quan hé». <biểu thức 2> 

trong đó, biểu thức 1 và biểu thức 2 cùng là xâu hoặc cùng là biểu thức số học. 

Ví du 

woss 


itl >= 2*3 
Biéu thúc quan hé duoc thuc hién theo trinh tu: 
è Tính giá tri các biểu thức. 
e Thuc hiện phép toán quan hé. 
Kết quả của biểu thức quan hệ là giá trị lógic: true (đúng) hoặc false (sai). 
Trong ví dụ trên, nếu x có giá tri 3, thì biểu thức x < 5 có giá trị true. Nếu 
i có giá trị 2 và j có giá trị 3 thì biểu thức í + 1 >= 2*j sẽ cho giá trị false. 


Ví du 
Điều kiện để điểm M có toa độ (x, у) thuộc hình tròn tâm Да, b), bán kính R 
là: 
sart((x-a)*(x-a) + (y-b)*ly-b)) <= R 
hoàc 


sqr (x-a) + sqr(y-b) <= R*R 


5. Biéu thúc lógic 

Biểu thức lógic don giản là biến lógic hoặc hàng lógic. 

Biểu thức lógic là các biểu thức lógic đơn giản, các biểu thức quan hệ liên 
kết với nhau bởi phép toán lógic. Giá trị biểu thức lógic là #rue hoặc false (xem 
phụ lục A). Các biểu thức quan hệ thường được đặt trong cặp ngoặc ( và ). 

Phép toán not được viết trước biểu thức cần phủ định, ví dụ: 

not (x < 1) thể hiện phát biểu "x không nhỏ hơn 1" và điều này tuong duong 
với biểu thức quan hệ x >= 1. 
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Các phép toán and và or dùng để kết hợp nhiều biểu thức lógic hoặc quan hé 
thành một biểu thức, thường được dùng để diễn tả các điều kiện phúc tạp. 

Ví dụ 1 

Để thể hiện điều kiện 5 < x < 11, trong Pascal cần phải tách thành phát biểu 
dưới dạng "5 < x và x < 11": 

(5 <= x) and (x <= 11) 

Ví du 2 

Giả thiết M và N là hai biến nguyên. Điều kiện xác định M và N đông thời 
chia hết cho 3 hay đồng thời không chia hết cho 3 được thể hiện trong Pascal 
như sau: 


((M mod 3 = 0) and (N mod 3 = 0)) or ((M mod 3 <>0) and (N mod 3 <> 0)) 


6. Câu lệnh gắn 
Lệnh gán là một trong những lệnh cơ bản nhất của các ngôn ngữ lập trình. 
“Trong Pascal câu lệnh gán có dạng: 
<tên biến>:= <biểu thức>; 
Trong trường hợp don giản, tên biến là tên của biến đơn. Kiểu của giá trị 
biểu thức phải phù hợp với kiểu của biến. 
Chức năng của lệnh gán là đặt cho biến có tên ở vế trái dấu ":=" giá trị mới 


bằng giá trị của biểu thức ở vế phải. 


Ví dụ 
x1:= (b -sqrt(b*b - 4*а*с)) / (2*а); 
x2:= -b/a - xl; 
S3 oW 


is deg “HỆ 


Trong ví dụ trên, ý nghĩa của lệnh gán thứ ba là giảm giá trị của biến z một 


don vi. Y nghĩa của lệnh gán thứ tư là tăng giá trị của biến lén một đơn vị. 
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CÁC THÜ TUC CHUÁN VÀO/RA 
$7. DON GIAN 


Dé khói tao giá tri ban dáu cho bién, ta có thé düng lénh gán dé gán mót giá 
tri cho bién. Như vậy, mỗi chương trình luôn làm việc với một bộ dữ liệu vào. Để 
chương trình có thể làm việc với nhiều bộ dữ liệu vào khác nhau, thư viện của 
các ngôn ngữ lập trình cung cấp một số chương trình dùng để đưa dữ liệu vào và 
dua dữ liệu ra. 

Những chương trinh đưa dữ liên vào cho phép đưa dit liên từ bàn phím hoặc 
từ đĩa vào gán cho các biến, làm cho chương trình trở nên linh hoạt, có thể tính 
toán với nhiều bộ dữ liệu đầu vào khác nhau. Kết quả tính toán được lưu trữ tạm 
thời trong bộ nhớ. Những chương trình đưa dữ liệu ra dùng để đưa các kết quả 
này ra màn hình, in ra giấy hoặc lưu trên đĩa. 

Các chương trình dua dữ liệu vào và ra đó được gọi chung là các thú tuc 
chuẩn vàolra don giản. 

Trong phán này, ta sẽ xét các thú tuc chuẩn vào/ra don giản của Pascal để 
nhập dữ liệu vào từ bàn phím và đưa thông tin ra màn hình. 


1. Nhập dữ liệu vào tü bàn phím 
Việc nhập dữ liệu từ bàn phím được thực hiện bằng thủ tục chuẩn: 
read(<danh sách biến vào>) ; 
hoặc 
readln(«damh sách biến vào») ; 
trong đó danh sách biến vào là một hoặc nhiều tên biến đơn (trừ biến kiểu 
boolean). Trong trường hợp nhiều biến thì các tên biến được viết cách nhau bởi 
dấu phẩy. 
Ví du 
read(N); 
readln(a,b,c); 
Lệnh thứ nhất dé nhập một giá tri từ bàn phím và рап giá trị đó cho bién N. 
Lệnh thứ hai dùng để nhập lần lượt ba giá tri từ bàn phím và рап các giá trị dó 
tương ứng cho ba biến a, b và c. 
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Khi nhập giá tri cho nhiều biến, những giá trị này được gõ cách nhau bởi ít 
nhất một dấu cách hoặc kí tự xuống dòng (nhấn phím Enter). Các giá trị ứng với 
biến nguyên phải được biểu diễn dưới dạng số nguyên (không có dấu chấm thập 
phân). Các giá trị ứng với biến thực có thể được nhập dưới dạng số nguyên, số 
thực dạng thông thường hoặc số thực dạng dấu phẩy động. 

Ví dụ, để nhập các giá trị 1, —5 và 6 cho các biến thực a, b, c trong thủ tục 
thứ hai trong ví dụ trên, có thể gõ: 

1 -5 6 rồi nhấn phím Enter 
hoặc 

1.0 -5 rồi nhấn phím Enter 

6 rồi nhấn phím Enter. 


2. Đưa dữ liệu ra màn hinh 
Để đưa dữ liệu ra màn hình, Pascal cung cấp thủ tục chuẩn: 

write (<danh sách kết quả ra>); 
hoặc 

writeln(«danh sách kết quả ra>) ; 
trong đó, danh sách kết quả ra có thể là tên biến đơn, biểu thức hoặc hằng. Các 
hằng xâu thường được dùng để tách các kết quả hoặc đưa ra chú thích. Các thành 
phần trong kết quả ra được viết cách nhau bởi dấu phẩy. 

Với thủ tục write, sau khi đưa các kết quả ra màn hình, con trỏ không 
chuyển xuống dòng tiếp theo. Với thủ tục writeln, sau khi đưa thông tin ra màn 
hình, con trổ sẽ chuyển xuống đầu dòng tiếp theo. 

Ví dụ 

Để nhập giá trị cho biến M từ bàn phím, người ta thường dùng cặp thủ tục: 

write('Hay nhap gia tri M: '); 
readln(M); 
Khi thuc hiện các lệnh này, trên màn hinh xuất hiện dòng thông báo: 
Hay nhap gia tri M: 
và con trổ sẽ ở vi trí tiếp theo trên dòng, chờ ta gõ giá trị của M. 

Để chương trình được sử dụng một cách tiện lợi, khi nhập giá trị từ bàn phím 
cho biến, ta nên có thêm xâu kí tự nhắc nhở việc nhập giá trị cho biến nào, kiểu 
dữ liệu gi,... Ví dụ, khi cần nhập một số nguyên dương N (N < 100) từ bàn phím, 
ta có thể sử dụng cặp thủ tục sau: 

write('Nhap so nguyen duong N <= 100: '); 
readln(N); 
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Vídu 
Sau đây là một chương trình hoàn chinh có sử dung các thủ tuc vào và ra. 


program Vidu; 
var N: byte; 


begin 
write(' Lop ban co bao nhieu nguoi? '); 
readln(N); 
writeln(' Vay la ban co ', N-1,' nguoi ban trong lop.'); 


write('Go ENTER de ket thuc chuong trinh.'); 
readln 
end. 
Thủ tục readln cuối cùng dùng để tạm dừng thực hiện chương trình cho 
người dùng có thể quan sát kết quả của chương trình đưa ra trên màn hình. Muốn 
chương trình chạy tiếp cần nhấn phím Enter. 


Chú y: • Các thủ tục readin và writeln có thể không có tham số. 
e Trong thủ tuc write hoặc writeln, sau mỗi kết quả ra (biến, 
hằng, biểu thức) có thể có quy cách ra. Quy cách ra có dạng: 
— Đối với kết quả thuc: 
: <độ rộng>: <số chữ số phần thập phân> 
— Đối với các kết quả khác: 
: <độ rộng> 
trong đó, độ rộng và số chữ số phần thập phân là các hằng nguyên không âm. 


Ví du 
writeln(N:5,x:6:2); uuu 36 u 24.00 
мгібе (1:3,3:4,а+Ь:8:3); АЕ 023508 


Minh hoạ với N = 36, х = 24, i= 425, j= 56 và a+ b = 232 
Trong thủ tuc thứ nhất, 5 vị trí kể từ vị trí con trỏ hiện thời được dành dé dua 
ra giá trị N. Nếu N có giá trị nguyên dưới 5 chữ số hoặc giá trị âm dưới 4 chữ số 
thì những vị trí đầu sẽ được điền dấu cách. Tiếp theo là 6 vị trí được dành để đưa 
xra, trong đó 2 vị trí dành để đưa ra phần thập phân. Do phần nguyên và phần 
thập phân được cách nhau bởi dấu chấm nên còn lại 3 vị trí cho phần nguyên. 
Trong thủ tục thứ hai, / được dua ra trên 3 vị trí, j được đưa ra trên 4 vị trí và 
kết quả a + b được đưa ra trên 8 vị trí, trong đó có 3 vị trí dành cho phần thập phân. 
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SOAN THAO, DICH, THUC HIÉN VÀ 
§8. HIỆU CHỈNH CHƯƠNG TRÌNH 


Để có thể thực hiện chương trình được viết bằng một ngôn ngữ lập trình, ta 
cần soạn thảo, sử dụng chương trình địch để dịch chương trình đó sang ngôn ngữ 
máy. Các hệ thống lập trình cụ thể thường cung cấp phần mềm phục vụ cho việc 
soạn thảo, dịch và hiệu chỉnh chương trình. 

Với ngôn ngữ Pascal, người ta thường dùng các phần mềm Turbo Pascal 7.0 
hay Free Pascal. Free Pascal cho phép tận dụng nhiều hơn khả năng của hệ 
thống. Tuy nhiên, cách làm việc với Turbo Pascal và Free Pascal là tương tự nên 
dưới đây chỉ giới thiệu cách làm việc với Turbo Pascal. 

Trong khuôn khổ sách giáo khoa, để thực hiện các ví dụ và bài thực hành, 
trong máy tính cần có các tệp: turbo.exe, turbo.tpl, graph.tpu, egavga.bgi. 


Màn hình làm việc của Pascal có dạng như hình 1 dưới đây. 


Thanh bảng chọn 


Alt+F9 Compile F9 Make ñlt+F10 Local menu 


Hinh 1. Màn hinh làm viéc cüa Pascal 
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Dóng thú hai cüa màn hinh duoc goi là thanh bàng chon, mài muc trong 
bàng chon tuong úng vói mót nhóm viéc ta có thé lua chon, hai só ó phía duói 
cüa màn hinh ngàn cách nhau bàng dáu hai chám (:) cho ta biét con tró soan tháo 
dang ở dòng nào và cột nào trên màn hinh. 


Dưới đây là một số thao tác và phím tắt thường sử dụng để soạn thảo và thực 
hiện một chương trình viết bằng Pascal. 


° Soạn thảo: Gõ nội dung của chương trình gồm phán khai báo và các lệnh 
trong thân chương trình. Về cơ bản, việc soạn thảo chương trình tương tự 
như soạn thảo văn bản. Lưu chương trình vào đĩa bằng cách nhấn phím F2, 
nhập tên tệp rồi nhấn phím Enter (phần mở rộng của tệp ngầm định là .pas). 

° Biên dịch chương trình: Nhấn tổ hợp phím AIt+F9. Nếu chương trình có 
lãi cú pháp, phán mềm sẽ hi 
nếu có, lưu lại chương trình rồi tiến hành biên dịch lại cho tới khi không 
còn lỗi. 


n thị một thông báo Cần phải sửa lỗi 


° Chạy chương trình: Nhấn tổ hợp phím Ctrl+F9. 
° Dóng cửa số chương trình: Nhấn tổ hợp phím AIt+F3. 
e Thoát khỏi phán mêm: Nhấn tổ hợp phím Alt«X. 


Dữ liệu của bài toán được biểu diễn thông qua biến trong chương trình 
theo các quy tắc của ngôn ngữ lập trình cụ thể. 

Kiểu dữ liệu của mọi ngôn ngữ lập trình chỉ cho phép mô tả các đại 
lượng rời rạc và hữu hạn. 
Một chương trình thường có hai phán: Phần khai báo và phần thân 
chương trình. Phần khai báo có thể có hoặc không. 

Kiếu dữ liệu chuẩn: Kiếu nguyên, kiếu thực, kiếu kí tự, kiếu lógic. 

Các biến đều phải được khai báo và mỗi biến chỉ khai báo một lần. 


Các phép toán: số học, quan hệ và lôgic 


Các loại biểu thức: số học, quan hệ và lógic. 
Các ngôn ngữ lập trình có: 


o Lệnh рап dùng để gan giá trị của biểu thức cho biến. 


о Các thủ tục chuẩn dùng để đưa dữ liệu vào và ra. 
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Bài táp và thuc hành 1 


1. Mục đích, yêu cầu 


° Giới thiệu một chương trình Pascal hoàn chỉnh đơn giản; 


* Làm quen với một số dich vụ cơ bản của Turbo Pascal hoặc Free Pascal 


trong việc soạn thảo, lưu trữ, dịch và thực hiện chương trình. 


2. Nội dung 
a) Gõ chương trình sau: 
program Giai PTB2; 
uses crt; 
var a, b, c, D: real; 
xl, x2: real; 
begin 
еуез; 
write('a, b, c: '); 
readln(a,b,c); 
Ber BAN = 4*a*c; 


xl:= (-b — sqrt(D))/(2*a); 
x2:= —b/a — x1; 
write('xl = ', x1:6:2,' x2 = 
readln 
end. 
Chú ý:  - Dấu chấm phẩy (;) dùng để ngăn cách các khai báo và các câu lệnh. 


Có thể bỏ qua dấu chấm phẩy sau câu lệnh trước từ khoá end. 
— Sau từ khoá end cuối chương trình phải đặt dấu chấm. 


b) Nhấn phím F2 và lưu chương trình với tên là PTB2.PAS lên đĩa. 
c) Nhấn tổ hợp phím Alt*F9 để dich và sửa lỗi cá pháp (nếu có) 


d) Nhấn tổ hợp phím Ctrl+F9 để thực hiện chương trình. Nhập các giá tri 1; -3 
và 2. Quan sát kết quả hiển thị trên màn hình (х1 = 1.00 х2 = 2.00). Nhấn 


phím Enter để quay lại màn hình soạn thảo. 
е) Nhấn tổ hợp phím Ctrl+F9 rồi nhập các giá trị 1; 0; —2. 
Quan sát kết quả hiển thị trên màn hình (х1 = -1.41 327. 141). 
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P 


g) 


h) 


Chinh sửa chương trình trên để có chương trình không dùng biến trung gian D. 
Thuc hiện chương trình đã sửa với các bộ dữ liệu trên. 


Sửa lại chương trình nhận được ở câu c) bằng cách thay đổi công thức tính x2 
(có hai cách để tính x2). 

Thuc hiện chương trinh đã sửa với bộ dữ liệu 1; —5; 6. Quan sát kết quả trên 
màn hình (xl = 2.00x2= 3.00). 

Thực hiện chương trình với bộ dữ liệu 1; 1; 1 và quan sát kết quả trên 


màn hình. 


CÂU HỎI VÀ BÀI TẬP 
1. Пау cho biết su khác nhau giữa hằng có đặt tên và biến. 
2. Tai sao phổi khai báo bién? 


3. Trong Pascal, nếu một biến chỉ nhân giá tri nguyên trong pham vi tù 
10 đến 25532 thi bién đó có thé duoc khai báo bàng các kiểu dữ 
liệu nào? 

4. Biến P có thé nhện các giá trị 5; 10; 15; 20; 30; 60; 90 và bién X có 
thể nhộn các giá trị 0,1; 0,2; 0,3; 0,4; 0,5. Khai báo nào trong các 
khai báo sau là düng? 


Q) var X,P: byte; b) var P,X: real; 
C) var P: real; d) var X:real; 
X: byte; P:byte; 


5. Để tính diện tích S của hình vuông có canh A với giá tri nguyên nằm 
trong pham vi їй 100 đến 200, cách khai báo S nào dưới dày là 
đúng và tốn ít bộ nhớ nhát? 


а) var 8: integer; b)var 8: real; 
C)var S: word; d)var 8: longint; 
е) уак S: boolean; 


6. Hày viét biéu thüc toán hoc duói dày trong Pascal: 
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7. Hày chuyén các biéu thúc trong Pascal duói dày sang biéu thúc 
toán hoc tuong ung: 
Q)a/b*2; b) a*b*c/2; 
с) l/a*b/c; d) b/sqrt (a*atb), 


8. Нау viết biểu thúc lógic cho kết quả true khi toa dó (x, y) là điểm 
nằm trong vùng gạch chéo ké cá bién của các hinh 2.avà 2.b. 


Hinh 2. Các mién cán xác dinh 


9. нау viết chương trình nhộp só a (a > 0) rồi tính và dua ra diện tích 
phán được дасһ chéo trong hinh 3 (két quả làm tròn đến bốn chữ 
số thâp phân). 


10. Lap trinh tính và dua ra màn hinh vân tóc v khi cham đốt của môt 
vột rơi tù dó cao h, biết rằng v = КИШ , trong dó g là gia tóc roi 


tu do và g= 9,8m/s2. Độ coo h (m) được nhập vào tú bàn phím. 


Сии 


Сх TRÜC RÉ NHÁNH VÀ LÁP 
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S9. CÁU TRÜC RË NHÁNH 


1. Ré nhánh 


"Thường ngày, có rất nhiều việc chi được thực hiện khi một điều kiện cụ thé 


nào đó được thoả mãn. 

Ví dụ, Châu và Ngọc thường cùng 
Tin học. 

Một lần Châu hẹn với Ngoc: "Chiéu 
nhà Ngoc" 

Một lần khác, Ngọc nói với Châ 


nhau chuẩn bị các bài thực hành môn 
mai nêu trời không mua thì Châu sẽ đến 


hiéu mai nếu trời không mua thì Ngoc 


sẽ đến nhà Châu, nếu mưa thì sẽ gọi điện cho Châu để trao đổi". 
Câu nói của Châu cho ta biết một việc làm cụ thể (Châu đến nhà Ngọc) sẽ 
được thực hiện nếu một điều kiện cụ thể (trời không mưa) thoả mãn. Ngoài ra 


không đề cập đến việc gì sẽ xảy ra nếu đi 


liều kiện đó không thoả mãn (trời mưa). 


Ta nói cách diễn đạt như vậy thuộc dạng thiếu: 


Né... 


thì... 


Câu nói của Ngọc khẳng định một trong hai việc cụ thể (Ngọc đến nhà Châu 


hay Ngoc gọi điện cho Châu) chác chán 
việc sẽ được thực hiện thì tuỳ thuộc vào 
mãn hay không. 
Ta nói cách diễn đạt như vậy thuộc 
Nếu... thì.... 
Tù đó có thể thấy, trong nhiều thuật 
vào kết quả nhận được từ các bước trước 
Cấu trúc dùng để mô tả các mệnh 
rë nhánh thiếu và đủ. 


Ví dụ, để giải phương trình bậc hai: 


sẽ xảy ra. Tuy nhiên, việc nào trong hai 
điều kiện cụ thể (trời không mưa) thoả 


ang đủ: 

nếu không thì... 

toán, các thao tác tiếp theo sẽ phụ thuộc 
đó. 


ё có dang như trên được gọi là cấu trúc 


аё + bx + € = 0, (a £0) 


truóc tién, ta tính biét só delta D = b? 4 
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ac. 


Nếu D không âm, ta sẽ dua ra các nghiệm. Trong trường hop ngược lai, ta 
phải thông báo là phương trình vô nghiệm. 

Nhu vậy, sau khi tính D, tuỳ thuộc vào giá trị của D, một trong hai thao tác 
sẽ được thực hiện (h. 4). 


Mọi ngôn ngữ lập trình đều có các câu lệnh để mô tả cấu trúc rẽ nhánh. 


Nhập a, b, c 


DcE-4ac 


Thông báo vô 
nghiệm, rồi kết thúc 


Tính và đưa ra nghiệm 
thực, rồi kết thúc 


Hình 4. Sơ đồ thé hiện cấu trúc rẽ nhánh 


2. Câu lệnh if-then 
Dé mô tả cấu trúc rẽ nhánh, Pascal dùng câu lệnh if-then. Tương ứng với hai 
dạng thiếu và đủ nói ở trên, Pascal có hai dạng câu lệnh if-then: 
a) Dạng thiếu 
if <diéu kiện> then <câu lệnh >; 
b) Dang dú 
if <diéu kién> then «cáulénh I> else «cáulénh 2>; 
trong dó: 
• Diéu kiện là biểu thức lógic. 
e Саи lệnh, câu lệnh 1, саи lệnh 2 là một câu lệnh của Pascal. 


Hình 5 Hình 6 
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[9] dang thiếu: diéu kiện sẽ được tính và kiểm tra. Nếu điều kiện đúng (có giá 
trị true) thì câu lệnh sẽ được thực hiện, ngược lại thì cáu lệnh sẽ bị bó qua (h. 5). 

[9] dang đủ: điều kiện cũng được tính và kiểm tra. Nếu điều kiện đúng thi cáu 
lệnh 1 sẽ được thực hiện, ngược lại thì cáu lệnh 2 sẽ được thực hiện (h. 6). 


Ví dụ 1 
if D < 0 then writeln('Phuong trinh vo nghiem. '); 
Vídu2 
if a mod 3 = 0 then write('a chia het cho 3") 


else write('a khong chia het cho 3'); 


Ví du 3. Dé tìm số lớn nhất max trong hai só a và b, có thé thực hiện bằng 
hai cách sau: 


= а và lệnh if-then dang thiếu: 
b; 


— Düng cáu lénh gán max: 


if b » a then max: 
= Dùng một lệnh if-then dang đủ: 


if b > a then max:=b else max: 


3. Câu lệnh ghép 
Theo cú pháp, sau một số từ khoá (nhu then hoặc else) phải là một câu lệnh. 
Nhưng trong nhiều trường hợp, các thao tác sau những tên dành riêng đó khá 
phức tạp, đòi hỏi không phải chỉ một mà là nhiều câu lệnh để mô tả. Trong các 
trường hợp như vậy, ngôn ngữ lập trình cho phép góp một dãy câu lệnh thành 
một câu lệnh ghép (hay câu lệnh hợp thành). Chẳng hạn, câu lệnh ghép của 
Pascal có dạng: 
begin 
«các cáu lệnh> ; 
end; 
Câu lệnh, câu lệnh 1, câu lệnh 2 trong các câu lệnh if-then ở mục trên có thể 
là câu lệnh ghép. 
"Thuật ngữ câu lệnh được hiểu chung cho cả câu lệnh don và câu lệnh ghép. 
Ví du 


if D < O then writeln('Phuong trinh vo nghiem. ') 


else 
begin 
xls (“в = sqet(b*b — A*&*c))/(2*a); 
x2:= -b/a-xl; 
end; 
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4. Một số ví du 
Ví du 1. Tim nghiém thuc cüa phuong trinh bàc hai: 
ах? + br+ c=0,vớia#0. 
Input: Các hệ số a, b, c nhập từ bàn phím. 
Output: Đưa ra màn hình các nghiệm thực hoặc thông báo "Phuong trinh vo 
nghiem". 
program Giai PTB2; 
uses crt; 
var a,b,c: real; 
B. 3s real; 
begin 
erreser; 


write(' a, b, c: '); 
readln(a, b, c); 


tss 8] — Ж®нкар 
if р < 0 then writeln('Phuong trinh vo nghiem. ') 
else 
begin 
х1:= (-b = sqrt(D))/(2*a); 
x2:= -b/a - xl; 
writeln(' х1 = ', x1:8:3,' x2 = ', x2:8:3); 
end; 
readln 
end. 
Ví dụ 2 


Tìm số ngày của năm X, biết rằng năm nhuận là năm chia hết cho 400 hoặc 
chia hết cho 4 nhưng không chia hết cho 100. Ví dụ, các năm 2000, 2004 là năm 
nhuận và có số ngày là 366, các năm 1900, 1945 không phải là năm nhuận và có 
số ngày là 365. 

Input: N nhập từ bàn phím. 


Output: Đưa số ngày của năm N ra màn hình. 
program Nam nhuan; 
uses crt; 
var N, SN: integer; 
begin 
лавр" 
write('Nam: '); readln(N); 
if (N mod 400 = O)or((N mod 4 = 0)and(N mod 100 <> 0) 
then SN:- 366 else SN 365; 
writeln(' So ngay cua nam ', N,' la ', SN); 
readln 
end. 


41 


§1 0. CÃU TRÚC LĂP 


1. Láp 
Vói a là sõ nguyên và a > 2, xét các bài toán sau дау: 
Bài toán 1. Tính và dua két quà ra màn hinh tóng 
1 1 1 1 


S= —+ * +..+———. 
a a+l a+2 a+100 


Bài toán 2. Tính và đưa kết quả ra màn hình tổng 


T 1 1 1 
== + SE eau us 
a a+l a+2 a+N 
cho đến khi « 0,0001. 


a+N 


Với cả hai bài toán, dé thấy cách để tính tổng S có nhiều điểm tuong tự: 


• - Xuất phát, S được рар giá trị —; 
a 


•  Tiép theo, cộng vào tổng S một giá trị với № = 1, 2, 3,4, 5,... 


a+N 
Việc cộng này được lặp lại một số lần. 
Đối với bài toán 1, số lần lặp là 100 và việc cộng vào tổng Š sẽ kết thúc khi 
đã thực hiện việc cộng 100 lần. 
Đối với bài toán 2, số lần lặp chưa biết trước nhưng việc cộng vào tổng Š sẽ 


kết thúc khi điều kiện 


« 0,0001 được thoả mãn. 
a+N 


Nói chung, trong một số thuật toán có những thao tác phải thực hiện lặp đi 
lặp lại một số lần. Một trong các đặc trưng của máy tính là có khả năng thực 
hiện hiệu quả các thao tác lặp. Cấu trúc lặp mô tả thao tác lặp và có hai dạng là 
lặp với số lần biết trước và lặp với số lần chưa biết trước. 


Các ngôn ngữ lập trình đều có các câu lệnh để mô tả cấu trúc lặp. 
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2. Lap với số lán biết trước và câu lệnh for-do 
Có hai thuật toán Tong Ја và Tong. Ib để giải bài toán 1 như sau: 
Thuật toán Tong_ la 
Bước 1. S 4 1/a; № < 0;  (Khói tạo S và N} 
Bước 2. N < N+ 1; 
Bước 3. Nếu N > 100 thi chuyển đến bước 5; 
Bước 4. S < 5 + 1/(a + N) ròi quay lại bước 2; 
Вибс 5. Dua S ra màn hình, rồi kết thúc. 
Thuật toánTong 1b 
Duóc 1.8 — 1а; N — 101; {Khởi tao S và N} 
Buóc2.N«- N- 1; 
Bước 3. Nếu N < 1 thì chuyển đến bước 5; 
Bước 4. S < S + 1/(а + N) rôi quay lại bước 2; 
Bước 5. Dua S ra màn hình rồi kết thúc. 
Luu ý, số lần lặp của cả hai thuật toán trên là biết trước và như nhau (100 lần). 


Trong thuật toán Tong Ја, giá trị N khi bát đầu tham gia vòng lặp là 1 và 
sau mỗi lần lặp N tăng lên 1 cho đến khi N > 100 (N = 101) thì kết thúc lặp 
(thực hiện đủ 100 lần). Trong thuật toán Tong Ib, giá trị N bất đầu tham gia 
vòng lặp là 100 và sau mỗi lần lặp N giảm di 1 cho đến khi N < 1 (N =0) thì kết 
thúc lặp (thực hiện đủ 100 lần). Ta nói cách lặp trong thuật toán Tong Ја là 


dang tiến và trong thuật toán Tong Ib là dạng lùi. 
Dé mô tá cấu trúc lặp với số lần biết trước, Pascal dùng câu lệnh lặp for-do 
với hai dang tiến và lùi nhu sau: 
• Dang lặp tiến: 
for «bién dém»:- «giá trị dáu» to «giá trị cuói» do «cáu lệnh >; 
* - Dạng lặp lùi: 
for <biến dém»:- «giá tri cuói» downto «giá trị đầu > do «cáu lệnh>; 


trong dó: 
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— Biến đếm là biến đơn, thường có kiểu nguyên. 

= Giá trị đâu, giá trị cuối là các biểu thức cùng kiểu với biến đếm và giá tri 
dáu phải nhỏ hơn hoặc bằng giá tri cuối. Nếu giá trị đầu lớn hơn giá tri 
cuối thì vòng lặp không được thực hiện. 


Hoạt động của lệnh for-do: 

- Ở dạng /ấp tiên, câu lệnh viết sau từ khoá do được thực hiện tuần tự, với 
biến đếm lần lượt nhận các giá trị liên tiếp tăng từ giá tri đâu đến giá tri cuối. 

= Ó dạng lặp Iñi, câu lệnh viết sau từ khoá do được thực hiện tuần tự, 
với biến đếm lần lượt nhận các giá trị liên tiếp giảm từ giá tri cuối đến 
giá trị đâu. 

Chú ý: Giá trị của biến đếm được điều chỉnh tự động, vì vậy câu lệnh 
viết sau do không được thay đổi già tri biến đối. 


Ví du 1. Sau đây là hai chương trình cài đặt các thuật toán Tong la và 
Tong Ib. 
program Tong 1a; 
uses crt; 
var S: real; 
a, N: integer; 
begin 
girser? 
write ("Нау nhap gia tri а vao!'); 
readln(a); 


5:=1.0/а; {Buoc 1} 
1 to 100 do {Buoc 2, Buoc 3} 
S+1.0/ (a+N); (Buoc 4) 
writeln('Tong S la: ', 8:8:4); (Buoc 5) 
readln 
end. 


program Tong 1b; 
uses crt; 
var 5: real; 
a, N: integer; 
begin 
clrscr; 
write ('Hay nhap gia tri a vao!'); 
readln(a); 
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8:-1.0/a; (Buoc 1} 


for N:- 100 downto 1 do (Buoc 2 va Buoc 3) 
g= 5+1.0/ (a*N); (Buoc 4) 
writeln('Tong S la: ', 8:8:4); {Buoc 5) 
readln 
end. 


Ví du 2. Chuong trinh sau thuc hién viéc nháp tit bàn phím hai só nguyén 
duong M và N (M < N), tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 


5 trong pham vi tit M dén N. 
program Vi du 2; 
uses crt; 
var M, N, I: integer; 
T: longint; 


begin 
clrscr; 
writeln('Nhap so M nho hon N'); 
write('M = ');readln(M); 
write('N = ');readln(N); 
ques os 


for I:- M to N do 
if (I mod 3 = 0) or (I mod 5 = 0) then 
Ta MET 
writeln('KET QUA: ', T); 
readin 
end. 


3. Lap với số Іп chua biết trước và câu lệnh while-do 
Có thể xây dựng thuật toán Tong 2 như sau để giải bài toán 2. 
Thuật toán Tong 2 
Bước 1. S < а № 4-0; {Khôi tạo S và N} 

Bước 2. Nếu 1/(а + N) < 0,0001 thì chuyển đến bước 5; 
Bước 3. N < N + 1; 

Bước 4. S < S + 1/(а + N) rồi quay lại bước 2; 

Bước 5. Dua S ra màn hình, rồi kết thúc. 


Nhu váy, viéc 1ар vói só lán chua biét truóc së chi két thác khi тїбї diéu kién 


cho trước được thoả mãn. 
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Dé mô tả cấu trúc lặp nhu váy, Pascal dùng câu lệnh while-do có dạng: 
while «diéu kiện> do<câu lệnh >; 
trong đó: 
* Điều kiện là biểu thác lógic; 
e Câu lệnh là một câu lệnh đơn hoặc ghép. 


Việc thực hiện lệnh while-do được thể hiện trên sơ dó ở hình 7. 


Hình 7. Sơ đồ lặp với số lần lặp chưa biết trước 


Ví du 1. Sau đây là sơ dó khối và chương trình cài đặt thuật toán Tong 2. 


1/(a+N) 
« 0.0001? 


Đưa ra 5, 
rồi kết thúc 


Hinh 8. Sơ đồ khối của thuật toán Tong 2 


program Tong 2; 
uses crt; 


var S: real; 
a, N: integer; 
begin 
write ('Hay nhap gia tri a vao!'); 
readln(a); 
5:= 1.0/a; N:= 0; {Buoc 1} 
while not (1/(a*N)«0.0001) do (Buoc 2) 
begin 
N:= N+1; {Buoc 3} 
S:= 5+1.0/ (atN); (Buoc 4) 
end; 
writeln('Tong S la: ', 8:8:4); (Buoc 5} 
readln 
end. 


Ví du 2. Tìm ước chung lớn nhất (UCLN) của hai số nguyên dương M và N. 


Có nhiều thuật toán khác nhau tìm ƯCLN của M và N. Sau đây là một thuật 
toán tìm ƯCLN. 


Thuật toán 

Bước 1. Nhập M, N; 

Bước 2. Nếu M = N thì lấy giá trị chung này làm ƯCLN rồi chuyển đến 
bước 5; 

Bước 3. Nếu M > N thì M — M - N ngược lại N — N - M; 

Bước 4. Quay lại bước 2; 

Bước 5. Dua ra kết quà UCLN rồi kết thúc. 


Hình 9. Sơ đồ khối của thuật toán tìm ước chung lớn nhất 
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Chuong trinh sau thé hién thuát toán tim uóc chung lón nhát. 


program UCLN; 

uses crt; 

var M,N:integer; 

begin 
elsser; 
write('M, N = '); 
readln(M,N); 
while M <> N do 

if M » N then M:- M-N else N:- N-M; 

writeln('UCLN = ', M); 
readln 

end. 


Chú y: Các câu lệnh trong vòng lặp thường được lặp lại nhiều lần, vi 
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vậy để tăng hiệu quả của chương trình thì những thao tác không 
cần lặp lại nên đưa ra ngoài vòng lặp. 


TÓM TẮT 


> Các ngôn ngữ lập trình đều có câu lệnh thể hiện cấu trúc rẽ nhánh và 
cấu trúc lặp. 
> Câu lệnh rẽ nhánh có hai dang: 
° Dạng thiếu; 
o Dạng đủ. 
> Có thể gộp dãy câu lệnh thành câu lệnh ghép. 
> Các câu lệnh mô tả cấu trúc lặp: 
o Lặp với số lần biết trước; 
o Lip với số lần chưa biết trước. 
Định lí Bohn Jacopini (Bon Ja-co-pi-ni): Mọi quá trình tính toán đều có thể 
mó tả và thực hiện dựa trên ba cấu trúc cơ bản là cấu trúc tuần tự, cấu trúc 
rẽ nhánh và cấu trúc lặp. 


Bài táp và thuc iind 


1. Mục đích, yêu cầu 
e Xây dựng chương trình có sử dụng cấu trúc rë nhánh; 


e Làm quen với việc hiệu chỉnh chương trình. 


2. Nội dung 
Bài toán. Bộ số Pi-ta-go 
Bi 


các binh phuong cüa hai só 


*t rằng bó ba số nguyên duong a, b, c được goi là bộ số Pi-ta-go nếu tổng 


ng bình phương của số còn lại. Viết chương trình 
nhập từ bàn phím ba số nguyên dương a, b, c và kiểm tra xem chúng có là bộ số 
Pi-ta-go hay không. 

Y twng: Kiểm tra xem có đẳng thức nào trong ba đẳng thức sau đây xảy ra 
hay không: 


а= кс? 
Z: A 2 
b =a +c 

c2 = a2 + bẺ. 


Những công việc cần thực hiện: 


a) Gõ chương trình sau: 
program Pi ta go; 
uses crt; 
var a, b, c: integer; 
a2, b2, c2: longint; 
begin 
elrscr; 
write('a, b, c: '); 
readln(a, b, c); 
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b2*b; 
276г 
if (a2 = Ь2 + c2) ог (b2 = a2 + c2) or (c2 = a2 + b2) 


then writeln('Ba so da nhap la bo so Pi-ta-go') 


else writeln('Ba so da nhap khong la bo so Pi-ta-go'); 
readln 


end. 
Chú y: Truóc else khóng có dáu chám pháy (;). 


b) Lưu chương trình với tên PITAGO lên đĩa. 

c) Nhấn phím F7 để thực hiện từng câu lệnh chương trình, nhập các giá trị 
g=3,b=4,ec=5. 

d) Vào bảng chon Debug mở cửa sổ hiệu chinh để xem giá tri a2, b2, c2. 

e) Nhấn phím F7 để thực hiện các câu lệnh tính những giá trị nói trên, so sánh 
với kết quả a2 = 9, b2 = 16, с2 = 25. 

f) Quan sát quá trinh rë nhánh 

g)  Lặp lại các bước trên với bộ dữ liệu a = 700, b = 1000, c = 800. 

h) Nếu thay dãy lệnh 

= ар 
b; 
HO? 


a2*a; 


= b2*b; 


Berny 

bằng dãy lệnh 
a2:= a*a; 

bb; 


c*c; 


thì kết quả có gì thay đổi với bộ dữ liệu cho ở câu g? 
CÂU HỎI VÀ BÀI TẬP 
1. Hãy cho biết su giống và khác nhau của hai dang côu lệnh If-then. 


2. Câu lệnh ghép là gi? Tai sao phổi có câu lệnh ghép? 
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. Có thé dùng câu lệnh whlle-do dé thay cho саи lệnh for-do duoc 
không? Nếu được, hay thuc hiện điều đó với chương trình Tong Та. 


. Viết câu lệnh ré nhánh tính: 
E Au. 
x2+y2 nếu x^+y“<]. 
d z=jx+y nếu х?+у?>1уй y>x. 


0,5 nếu x?«y?»lvà y«x 


КИ nếu dim œ y) thuộc hình tròn bán kính rr» 0), tôm (a, Б). 


b) z- 
x+y trong trường hop còn lai 
. гар trinh tính: 
у= 5 —" 
nan +1 
1 1 ¬ | sả 
b) e(n)= l+—+—+ — +..., cho đến khi — < 2x 10 °. 
" 2 n! n! 


Dua giá trj e(n) ra màn hinh. 
. Lập trinh để giỏi bài toán có sau: 
Майа gà уйа chó. 
Bó lai cho tròn. 
Ba muoi sáu con, 
Môt trám chán chán. 
Hói có bao nhiéu con mói loai? 

. Nhập tù bàn phím tuói của cha và con (hiện tai tuổi cha lớn hon hai 
làn tuổi con và tuổi cha hon tuói con ít nhát là 25). Dua ra màn 
hình câu trå lời cho câu hỏi "Bao nhiêu năm nữa thi tuổi cha góp đôi 
tuổi con?". 


. Một người gủi tiết kiệm không ki han với số tiền A đồng với Idi suốt 

0,3% mỗi tháng. Hỏi squ bao nhiêu tháng, người đó rút hết tiền thì sẽ 
n ít nhát là B đồng? Biết rằng với việc gủi tiết kiệm 
không ki han thi lài không được cộng vào vốn. 
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huong ] 


Ku DÚ LIÉU CÓ CÁU TRÜC 


§1 1.ктёс måna 


Chúng ta chỉ xét hai kiểu mảng thông dụng với nhiều ngón ngữ lập trinh là 
kiểu mảng một chiều và kiểu mảng hai chiều. 


1. Kiểu mảng một chiều 

Мапе một chiêu là dãy hữu han các phần tử cùng kiểu. Мапа được đặt tên và 
mỗi phần tử của nó có một chỉ số. Để mô tả mảng một chiều cần xác định kiểu 
của các phần tử và cách đánh số các phần tử của nó. 

Để người lập trình có thể xây dựng và sử dụng kiểu mảng một chiều, các 
ngôn ngữ lập trình có quy tắc, cách thức cho phép xác định: 

e Теп kiểu mảng một chiều; 

e 56б lượng phần tử; 

° Kiểu dữ liệu của phần tử; 

e Cách khai báo biến mảng; 

e° Cách tham chiếu đến phán tử. 

Ví dụ, xét bài toán nhập vào nhiệt độ (trung bình) của mỗi ngày trong tuần, 
tính và đưa ra màn hình nhiệt độ trung bình của tuần và số lượng ngày trong tuần 
có nhiệt độ cao hơn nhiệt độ trung bình của tuần. 

Ta có thể dùng bảy biến thực để lưu trữ nhiệt độ của các ngày trong tuần. 
Chương trình giải bài toán có thể được viết bằng Pascal như sau: 

program Nhietdo Tuan; 

var 11,02, 03,04,05, L6, L7, Lb: real; 

dem: integer; 
begin 
writeln('Nhap vao nhiet do cua 7 ngay: '); 
readln(tl,t2,t3,t4,t5,t6,t7); 
tb:= (tl+t2+t3+t4+t5+t6+t7)/7; 
dem:= 0; 


if tl»tb then dem:- dem+i; 
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if t2>tb then dem:= dem+l; 
if t3>tb then dem:- dem+l; 
if t4»tb then dem:- dem†l; 
if t5»tb then dem:- дет+1; 


if t6>tb then dem: demtl; 
if t]»tb then dem:- đem†l; 
writeln('Nhiet do trung binh tuan: ',tb:4:2); 
writeln('So ngay nhiet do cao hon trung binh: ',dem); 
readln 
end. 
Khi cần giải bài toán trên với N ngày (N khá lớn) thì cách làm tương tự 


không những dài hỏi một khối lượng khai báo khá lớn, mà đoạn chương trình 
tính toán cũng khá dài. 

Dé giải quyết vân đề đó, ta sử dụng kiểu dữ liệu mảng một chiều để mô tả dữ 
liệu. Chương trình giải bài toán tổng quát với N ngày trong Pascal có thể như sau: 


program Nhietdo Nngay; 
const Max — 366; (gia thiet N lon nhat la 366) 
type Kmangl- array[l..Max] of real; 
var Nhietdo: Kmangl; 
dem, i, N: integer; 
Tong, Trung binh: real; 
begin 


write('Nhap so ngay: '); readln(N); 


begin 


write('Nhap nhiet do ngay 
readin(Nhietdo[i]); 
Tong:= Tong + Nhietdo[i]; 


пі, Tỉ "79 


епа; 

dem:- 0; 

Trung binh:- Tong/N; 
for i:- 1 to N do 


if Nhietdo[i]»Trung binh then dem:- demtl; 


writeln('Nhiet do trung binh',N,' ngay: ',Trung binh:8:3); 
writeln('So ngay nhiet do cao hon trung binh: ',dem); 
readln 


end. 
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Trong chuong trinh này dà khai báo bién màng mót chiéu (thóng qua khai 
báo kiéu máng) nhu sau: 


Type Kmangl 


array[l..Max] of real; Khai báo kiểu máng một 

chiều gồm Max số thực. 
Khai báo biến máng 

Nhietdo qua kiểu màng. 


Var Nhietdo: Kmangl; 


a) Khai báo 
Tông quát, khai báo biến mảng một chiều có dang: 
— Cách 1. Khai báo trực tiép biến mảng một chiều: 


var <tén biến mảng 


rray [kiểu chỉ 56] o£ <kiểu phán tit»; 

— Cách 2. Khai báo gián tiếp biến mảng qua kiểu mảng một chiều: 
type «tén kiểu máng» = array [kiểu chỉ só] o£ <kiểu phán tit»; 
var <iên bién mảng >: <tên kiểu mảng>: 

trong đó: 

è Kiểu chỉ số thường là một đoạn số nguyên liên tục có dạng nl..n2 với 
nl, n2 là các hằng hoặc biểu thức nguyên xác định chỉ số đầu và chỉ số 
cuối (n1 x n2); 

e Kiểu phán tử là kiểu của các phán tử mảng. 

Ví dụ. Các khai báo kiểu mảng một chiều sau đây là hợp lệ: 

type 
ArrayReal = array[-100..200] of real; 

ArrayBoolean = array[-n+1..n+1] of boolean; 
ArrayInt = array[-100..0] of integer; 
trong dó n là hằng nguyên. 

Tham chiếu tới phán tử của mảng một chiều được xác định bởi tên mảng 

cùng với chỉ số, được viết trong cặp ngoặc [ và ]. 

Ví du, tham chiếu tới nhiệt độ của ngày thứ 20. trong chương trình trên. được 

viết là Nhietdo[20]. 


Chỉ số phần tử—* 1 2 20 


Mảng 
Nhietdo 


Nhietdo [20] 


Hinh 10. Minh hoa máng mót chiéu 
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b) Mót só ví du 

Ta xét chương trình có sử dung mảng một chiều cài đặt một số thuật toán 
giải những bài toán tìm kiếm và sắp xếp. 

Ví du 1. Tim phán tử lón nhất của ddy số nguyên 

Input: Số nguyên duong N (N x 250) và dày N số nguyên duong А, А,,..., 
Ay, mỗi số đều không vượt quá 500. 

Output: Chỉ số và giá trị của phần tử lớn nhất trong dãy số đã cho (nếu có 
nhiều phần tử lớn nhất chỉ cần đưa ra một trong số chúng). 


Bước 1. Nhập N và dày Aj. Ay; 
Bước 2. Max < Аі <— 2; 
Buóc3. Nếu¡ > N thì đưa ra giá trị Max rồi kết thúc; 
Bước 4. 
Bước 4.1. Nếu A, > Max thi Max < A; 


Bước 4.2. i © i + 1 rồi quay lại bước 3; 


Hình 11. Thuật toán tìm phần tử lớn nhất của dãy số 


Chương trình dưới đây thực hiện việc duyệt tuần tự các phần tử để tìm ra số 
lớn nhất của dãy số nguyên. 
program TimMax; 
uses crt; 
const 
Nmax = 250; 
type 
ArrInt = array[l..Nmax] of integer; 
var 
N,i, Max, csmax: integer; 
A: ArrInt; 


begin 
clrscr; 
write ('Nhap so luong phan tu cua day so, N = '); 
readln(N); 
for to N do 
begin 
write('Phan tu thu ',i,' = '); 
readln(A[i]); 


end; 
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Max:= A[1]; csmax: 
for i:-2 to N do 
if A[i]» Max then 


begin 
Мах:= A[i]; 
csmax:- i; 
end; 
writeln('Gia tri cua phan tu Max: ', Max); 
writeln('Chi so cua phan tu Max: ', csmax); 
readln 
end. 


Ví dụ 2. Sắp xếp айу số nguyên bằng thuật toán tráo đối 


Input: Số nguyên dương N (N < 250) và dãy A gồm N số nguyên dương 


Ai, Ау,..., Ay, mỗi số đều không vượt quá 500. 


Output: Dăy số A đã được sắp xếp thành dãy không giảm. 


Để giải bài toán này, ta sẽ sử dụng thuật toán tráo đổi như mô tả trong sách 


giáo khoa Tin học 10. 


(* Chuong trinh giai bai toan sap xep day so *) 


program sapxep; 


uses crt; 
const Nmax = 250; 
type 
ArrInt = array[1l..Nmax] of integer; 
var 


N,i,j,t: integer; 
A: ArrInt; 
begin 
clrscr; 
write('Nhap so luong phan tu cua day so, 
readln(N); 
for 1:=1 to N do (* Nhap cac phan tu *) 
begin 
write('Phan tu thu ',i,' = '); 
readln(A[i]); 
end; 
for j:-N downto 2 do 
to 2-1 do 
if A[i]» А[1+1] then 


for i 


N 


9; 


3d 


begin (*Trao doi A[i] va А[1+1]*) 
t:- A[i]; 
A[i]:- А[1+1]; 
A[itl]:- t; 
end; 
writeln('Day so duoc sap xep la: '); 
for i:-1 to N do write(A[i]: 4); 
readln 
end. 


Ví du 3. Tim kiém nhi phán 

Input: Day A là dãy tăng gồm N (N < 250) số nguyên dương A,, А,,..., Ay và 
só nguyén К. 

Output: Chỉ só ¡ mà A, = k hoặc thông báo "Khong tim thay" nếu không có 
số hang nào của dãy A có giá trị bàng k. 

Để giải bài toán này, chúng ta sẽ sử dụng thuật toán tìm kiếm nhị phân được 
trình bày trong sách giáo khoa Tin học 10. 


Bước 1. Nháp N, các số hang Aj, A»... Ay và khoá k; 
Buóc2. Раи € l, Cuoi < N; 


ы Dau + Cuoi 
Buóc3. Сіна © | —————— |; 
2 


Buóc4. Nếu A; 
Bước 5. Nếu A, 
Buócó. Раи €-Giua + 1; 


= k thi thông báo chi só Gia, rồi kết thúc; 


jma > k thi đặt Cuoi = біна — 1 rồi chuyển đến bước 7; 

Buóc7. Nếu Dau > Cuoi thì thông báo dãy A không có số hang có giá trị 
bằng k, rồi kết thúc; 

Bước 8. Quay lại bước 3. 


Hình 12. Thuật toán tìm kiếm nhị phân 


(* Chuong trinh cai dat thuat toan tim kiem nhi phan*) 
program TK nhiphan; 
uses crt; 


const 

Nmax = 250; 
type 

ArrInt = array[1..Nmax] of integer; 
var 


N, i, k: integer; 
Dau, Cuoi, Giua: integer; 


Tim Thay: boolean; 
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begin 
clrscr; 
write('Nhap so luong phan tu cua day so, N = 
readln(N); 
writeln('Nhap cac phan tu cua day so tang: '); 
for i:-l to N do 
begin 
write('Phan tu thu 
readln(A[i]); 
end; 
write('Nhap gia tri k = '); 
readln(k); 
Dau:- 1; Cuoi:-N; Tim thay:- false; 
while (Dau «- Cuoi) and not (Tim Thay) do 


"uico in age 


begin 
Giua:= (Dau*Cuoi) div 2; 
if A[Giua] = k then 
s= true 
if A[Giua]>k then Cuoi:= Giua-l 
else Dau:= Giua+l; 
end; 


if Tim thay then writeln('Chi so tim duoc la: 
else writeln('Khong tim thay'); 
readln 
end. 


Kiểu mảng hai chiều 


Xét bài toán tính và đưa ra màn hình bằng nhân. 


оо ^N 


12 16 20 24 28 32 36 
10 15 20 25 30 35 40 45 
12 18 24 30 36 42 48 54 
14 21 28 35 42 49 56 63 
16 24 32 40 48 56 64 72 
18 27 36 45 54 63 72 81 


о 0-00 ^UNH 


Báng nhán 


Giua) 
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Ta tháy báng nhàn có dang bàng góm các giá tri cüng kiéu. Ta có thé biéu 
dién báng nhán bàng kiéu dü liéu màng hai chiéu. 


Mang hai chiêu là bằng các phần tử cùng kiểu. 

Nhận xét rằng mỗi hàng của mảng hai chiều có cấu trúc như một mảng một 
chiều cùng kích thước. Nếu coi môi hàng của mảng hai chiều là một phần tử thì 
ta có thể nói mảng hai chiều là mảng một chiều mà mỗi phần tử là mảng 
một chiều. 


Như vậy, ta cũng có thể mô tả dữ liệu của bảng nhân là kiểu mảng một chiều 
gồm 9 phần tử, mỗi phần tử lại là mảng một chiều có 10 phần tử, mỗi phần tử là 
một số nguyên. 


Tương tự như với kiểu mảng một chiêu, với kiểu mảng hai chié 
ngữ lập trình cũng có các quy tắc, cách thức cho phép xác định: 


‚ các ngón 


° Теп kiểu mảng hai chiều; 
e Số lượng phần tử của mỗi chiều; 
° Kiểu dữ liệu của phán tử; 
e Cách khai báo biến; 
e Cách tham chiếu đến phán tử. 
Ví dụ, biến mảng hai chiều B lưu trữ bảng nhân có thể được khai báo trong 
Pascal như sau: 
var B: array[1..9] of array[l..10] of integer; 
hoặc có thé khai báo ngắn gon: 
var B: array[l..9,1..10] of integer; 
a) Khaibáo 
Tông quát, khai báo biến mảng hai chiều trong Pascal như sau: 
— Cách 1. Khai báo trực tiếp biến mảng hai chiều: 
var «tén bién тіп: array [kiểu chỉ số hàng, kiểu chỉ số 
o£ <kiểu phán tit»; 


— Cách 2. Khai báo gián tiếp biến mảng qua kiểu mảng hai chiều: 
type <tén kiểu máng» = array [kiểu chỉ số hàng, kiểu chỉ số cột] 
o£ «kiéu phán tit»; 


var «lén bién máng»: «ién kiểu máng»; 
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Ví du. Các khai báo sau dày là hop lé: 
type 
ArrayReal = array[-100..200,100..200] of real; 
ArrayBoolean = array[-n*l..n*l,n..2*n] of boolean; 
var 
ArrayInt: array[1..10,1..15] of integer; 
ArrayLong:array[0..3*(n*1),0..n] of longint; 
trong đó n là hằng nguyên. 
Tham chiếu tới phần tử của mảng hai chiều được xác định bởi tên mång cùng 
với hai chỉ số được phân cách bởi dấu phẩy và viết trong cặp ngoặc [ và ]. 
Ví dụ. Tham chiếu tới phần tử ở hàng thứ 5, cột thứ 9 của biến mảng 
Arraylnt khai báo trong ví dụ trên được viết: Arraylnt [5, 9]. 
Arraylnt 
т Ж 


9 40 11 12 13 44 45 


1 1 1 1 j” 


P 
Arraylnt[5,9] 


Фоча m > о Na 
2 1 1_1 1.1 1.11 
2 11711 11 11 1» 
2 $737 11 111 1 1" 
2 | | | | 11 ях 

I | | | | 11 11. 
27 171171 1 11 11 
q 111111 11. 


= 


Hinh 13. Minh hoa máng hai chiéu 


b) Một số ví dụ 
Ví dụ 1. Chương trình sau tính và đưa ra màn hình bảng nhân. 


program Bang nhan; 

uses crt; 

var 
B: array[1..9,1..10] of integer; 
(B: bien mang hai chieu luu bang nhan) 
i, j: integer; 


for і:=1 to 9 do 
for j:- 1 to 10 do 
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begin 


for to 10 do write(B[i,j]:4); 


writeln; 
end; 
readln 
end. 


Ví dụ 2. Chương trình sau nhập vào từ bàn phím các phần tử của mảng hai 
chiều B gồm 5 hàng, 7 cột với các phần tử là các số nguyên và một số nguyên K. 
Sau đó, đưa ra màn hình các phần tử của mảng có giá trị nhỏ hơn k. 


program MangHaiChieu; 
uses crt; 
var b: array[1..5, 1.. 
d, i, j, k: integer; 
beain 
elrscer; 
writeln('Nhap cac phan tu cua mang theo dong: '); 
for i:- 1 to 5 do 
begin 
for j:= 1 to 7 do read(b[i,3]); 
writeln; 
end; 
write('Nhap vao gia tri k - '); readln(k); 
di- 0; 
writeln('DS cac phan tu mang nho hon ',k,':'); 
for i:- 1 to 5 do 


] of integer; 


for j:= 1 to 7 do 
if b[i,j] « k then begin 
желке [ДЕЛ], " л 
d:= а+1; 
епа; 
if а = 0 then writeln('Khong co phan tu nao nho hon ',k); 
readln 
end. 
Chú ý: - Các biến mảng thường gồm số lượng lớn các phần tử nên cán 


lưu ý phạm vi sử dụng chúng để khai báo kích thước và kiểu dữ 
liệu sao cho tiết kiệm bộ nhớ. 
— Ngoài hai kiểu mảng một chiều và hai chiều, còn có kiểu 
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1. 


2. 


Bài táp và thuc hành 3 


Mục đích, yêu cầu 


° Náng cao kĩ năng sử dụng một số câu lệnh và một số kiểu dữ liệu thông 


qua việc tìm hiểu, chạy thử các chương trình có sẵn; 


° Biét giải một số bài toán tính toán, tìm kiếm don giản trên máy tính. 


Nội dung 


Bài 1. Tạo màng A gồm n (n < 100) số nguyen, mbi số có giá trị tuyệt đối khong 
vượt quá 300. Tính tổng các phần tử của mảng là bội số của một số nguyên 


4) 


dương & cho trước. 


Hãy tìm hiểu và chạy thử chương trình sau đây: 
program Suml; 
uses crt; 
const nmax=100; 
type MyArray-array[l..nmax] of integer; 
var A: MyArray; 
s,n,i,k: integer; 
begin 
clrscr; randomize; 
write('Nhap n =”); 
readln(n); {Tao ngau nhien mang gom n so nguyen} 
:= 1 to n do A[i]:= random(301)- random(301); 


write('Nhap k = '); 
readln(k); 
s:=0; 


for i:=1 to n do 
if A[i] mod k = O then s: 
writeln('Tong can tinh la: ' 


readln 
end. 


1 to n do write(A[i]:5); (in ra mang vua tao) 
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Chü y: Hàm chuán random(n) cho giá tri là sé nguyën ngáu nhiën 

trong đoạn từ 0 đến n- 1, còn thủ tuc randomize khói tạo cơ 
chế sinh số ngẫu nhiên. 

b) Hãy đưa các câu lệnh sau đây vào những vị trí cần thiết nhằm sửa đổi 
chương trình trong câu a) để có được chương trình đưa ra số các số dương và 
số các số âm trong mảng. 
posi, neg: integer; 
posi:- 0; neg:- 0; 
if А[1]>0 then posi:- posi+l 

else if A[i]<0 then neg:- neg+1l; 


writeln(posi:4,neg:4); 


Bài 2. Viết chương trình tìm phần tử có giá trị lớn nhất của mảng và dua ra màn 
hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử có cùng giá 
trị lớn nhất thì đưa ra phần tử có chỉ số nhỏ nhất. 


a) Hãy tìm hiểu chương trình sau đây: 
program MaxElement; 
const Nmax= 100; 
type MyArray = array[l..Nmax] of integer; 
var A: MyArray; 
n,i,j: integer; 


begin 
write('Nhap so luong phan tu cua day so, N = '); 
readln(N); 
for i:=1 to N do 
begin 
write('Phan tu thu ',i,' = '); 
readln(A[i]); 
end; 
j:= 1; 


for i:= 2 to n do if A[i] > A[j] then j:= i; 
gjy ' Gia tri: ',A[3]:4); 


write('Chi so: ' 


readln 
end. 
b) Chinh sửa chương trình trên để đưa ra chỉ số của các phán tử có cùng giá tri 


lớn nhất. 
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Bài táp và thuc hành 4 


1. Mục đích, yêu cầu 
e Віёї nhận xét, phán tích, dé xuất thuật toán giải bài toán sao cho chương 
trình chạy nhanh hơn; 


• Làm quen với dữ liệu có cấu trúc và bài toán sắp xếp. 


2. Nội dung 
Bài 1 
a) Нау tìm hiểu và chay thử chương trình thực hiện thuật toán sắp xếp dãy số 
nguyên bằng thuật toán tráo đổi với các giá trị khác nhau của n dưới đây. 
Qua đó, nhận xét về thời gian chạy của chương trình. 
(* Chuong trinh giai bai toan sap xep day so *) 
uses crt; 
const Nmax = 250; 
type  ArrInt = array[l..Nmax] of integer; 
var  n,i, j, t: integer; 
A: ArrInt; 
begin 
&lirscr; 
randomize; 
write('Nhap n = '); 
readln(n); 
(Tao ngau nhien mang gom n so nguyen) 


1 to n do A[i]:= random(300)-random(300); 


1 to n do write(A[i]:5); (in mang vua tao) 
writeln; 


for j:-N downto 2 do 
for i:=1 to 2-1 do 
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if A[i]> A[i+1] then 
begin (* Trao doi A[i] va A[itl] * 
t:- Ali]; 
A[i]:— A[itl]; 
A[itl]:- t; 
end; 
writeln('Day so duoc sap хер: '); 
for і:=1 to n do 
write(A[i]: 7); 
writeln; 
readln 


end. 


b) Khai báo thêm biến nguyên Dem và bổ sung vào chương trình những câu 
lệnh cần thiết để biến Dem tính số lần thực hiện tráo đổi trong thuật toán. 
Dua kết quả tìm được ra màn hình. 


Bài 2 
Hãy đọc và tìm hiểu những phân tích để viết chương trình giải bài toán: 
Cho mảng А едт n phán tử. Hãy viết chương trình tạo mảng B[1..n], trong 
đó B[i] là tổng của i phán tử đầu tiên của A. 
Thoat đầu có thể viết chương trình sau để giải bài toán này: 
program SubSuml; 
const nmax-100; 
type MvArray=array[l..nmax] of integer; 
var A, B: MyArray; 
n,i,j: integer; 
begin 
randomize; 
write('Nhap n ='); 
readln(n); 
(Tao ngau nhien mang gom n so nguyen) 


for і:= 1 to n do A[i]:= random(300) - random(300); 
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for i:- 1 to n do write(A[i]:5); 
writeln; 


(Bat dau tao B) 


for i:- 1 to n do 
begin 
B[i]:= 0; 


for j:- 1 to i do B[i]:- B[i]*A[j]:; 
end; 
(Ket thuc tao B) 
for i:- 1 to n do write (B[i]:6); 
readln 
end. 
Để ý rằng ta có các hệ thức sau: 
B[1]= A[1] 
B[i]= B[i-1]*A[i], 1<i<n. 
Do đó, ta thay đoạn chương trinh từ chú thích (Bat dau tao B] đến {Ket thuc 
tao B) bởi hai lệnh sau: 


B[1]:= A[1]; 
2 to n do В[і]:= B[i-1]*A[i]:; 


for їт= 


Với hai lệnh này, máy chỉ phải thực hiện n — 1 phép cộng, trong khi với đoạn 


3s +1 
chương trinh trên máy phải thực hiện Do th CÓ) phép cộng. 

Nhờ việc phân tích như trên ta có thể giảm bót đáng kể số phép toán cán 
thực hiện. 


Tuy tốc độ tính toán của máy tính nhanh nhưng có giới hạn. Do đó, trong 
khi viết chương trình, ta nên tìm cách viết sao cho chương trình thực hiện càng ít 
phép toán càng tốt. 
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$1 2 KIÉU KAU 


Юй liéu trong các bài toán khóng chi thuóc kiéu só mà cà kiéu phi só - dang 
kí tự. Dữ liệu kiểu xâu là dãy các kí tự. 


Ví dụ. Các xâu kí tự đơn giản: 


"Bach khoa' 'KISU' '2007 la nam Dinh Hoi 


Xáu là dày các kí tự trong bộ mã ASCII, mỗi kí tự được goi là một phán tử 


của xâu. Số lượng kí tự trong một xâu được gọi là độ dài của xâu. Xâu có độ dài 


bằng 0 gọi là xâu rỗng. 


Các ngôn ngữ lập trình đều có quy tắc, cách thức cho phép xác định: 


Теп kiểu хаи; 

Cách khai báo biến kiểu хай; 
Số lượng kí tự của хап; 

Các phép toán thao tác với xâu; 


Cách tham chiếu tới phần tử của xâu. 


Có thể xem xâu là mảng một chiều mà mỗi phần tử là một kí tự. Các kí tự 


của xâu được đánh số thứ tự, thường bắt đầu từ 1. 


Tuong tự mảng. tham chiếu tới phần tử спа хайп được xác định bởi tên biến 
xâu và chỉ số đặt trong cặp ngoặc [ và ]. 


Ví dụ, giả sử có biến Hoten lưu trữ giá trị hằng xâu 'Nguyen Le Huyen' thì 
Ноіеп[6] cho ta kí tự 'n' là kí tự thứ sáu của biến хаи Hoten. 


Dưới đây trình bày cách khai báo dữ liệu kiểu хаи, các thao tác xử lí хаи và 


một số ví dụ sử dụng kiểu xâu trong Pascal. 
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1. Khqi báo 
Dé khai báo dữ liệu kiểu xâu ta sử dụng tên dành riêng string, tiếp theo là độ 
dài lớn nhất của xâu (không vượt quá 255) được ghi trong cặp ngoặc [ và ]. 
Biến kiểu xâu có thể khai báo như sau: 
var <іёп bién»: string [độ dài lớn nhất của хаи]; 
Ví du 
var Hoten: string[26]; 
Trong mô tả xâu có thể bó qua phán khai báo độ dài, chẳng hạn: 
var Chugiai: string; 


Khi đó độ dài lớn nhất của xâu sẽ nhận giá trị ngầm định là 255. 


2. Các thao tác xử lí xâu 
4) Phép ghép xâu, kí hiệu là dấu cộng (+), được sử dụng để ghép nhiều xâu 
thành một. Có thể thực hiện phép ghép xâu đối với các hằng và biến xâu. 
Ví dụ 
ёр ghép хаи: 
"На! + ' Noi' + ' - ' + "Viet Nan' 
cho хаи két quà là 'Ha Noi - Viet Nam'. 
b) Các phép so sánh bàng (=), khác (<>), nhó hon (<), lón hon (>), nhó hon 


hoặc bàng (<=), lớn hon hoặc bàng (>=) có thứ tu ưu tiên thực hiện thấp hon 
phép ghép xâu và thực hiện việc so sánh hai xâu theo các quy tắc sau: 


e Хай А là lớn hon хаи B nếu nhu kí tự đầu tiên khác nhau giữa chúng kể 
từ trái sang trong xâu A có mã ASCII lớn hon. 


е Nếu А và B là các хаи có độ dài khác nhau và A là đoạn đầu của B thì A 
là nhỏ hơn B. 


Ví dụ 

"Мау tinh' < 'May tinh cua toi" 
* Hai xâu được coi là bằng nhau nếu như chúng giống nhau hoàn toàn. 
Ví dụ 

'TIN HOC' = 'TIN HOC' 


Để xử lí các xâu, có thể sử dung các thủ tục và hàm chuẩn dưới đây: 
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с) 


а) 


e) 


g) 
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Thü tuc delete(st, vt, n) thuc hién viéc xoá n kí tu cüa bién xàu st bát dáu tir 
vi trí vt. 
Ví du 
Giá tri st Thao tác Két quà 
'abcdef' delete(st, 5, 'abcd' 
'Song Hong' delete(st, 1, 5); 'Hong ' 


Thủ tục ¿nsert(s1, s2, vt) chèn хап 51 vào xâu s2, bắt đầu ở vi trí ví. 
Ví du 
Giá trị s1 Giá trị s2 Thao tác Kết quả 
E 'IBMA86" insert(sl,52,4); 'IBM PC 486" 
ut "Hinh .2' | insert(s1,52,6); 'Hinh 1.2" 
Hàm сору(5, ví, N) tạo xâu gồm N kí tự liên tiếp bát đầu từ vi trí vt của 
xâu S. 
Ví du 
Giá trị s Biểu thức Kết quả 
'Bai hoc thu 9" copy (5, 9,5); 'thu 9" 
Hàm /ength(s) cho giá trị là độ dài xâu s 
Ví dụ 
Giá trị s Biểu thức Kết quả 
'500 ki tu" length(s) 9 
Hàm pos(s1, s2) cho vi trí xuất hiện đầu tiên của хаи sl trong хаи s2 
Ví du 
Giá trị s2 Biểu thức Kết quả 
"abcde£" pos['cd',s2) 3 
'abcde£' pos('k',s2) 0 


h) Hàm upcase(ch) cho chữ cái in hoa ứng với chữ cái trong ch. 
Vídu 


Giá tri ch Biéu thúc Két quà 
ran upcase (ch) 'D' 
"EU upcase (ch) "E" 


3. Một số ví du 

Ví dụ 1 

Chương trình dưới đây nhập họ tên của hai người vào hai biến xâu và đưa ra 
màn hình xâu dài hơn, nếu bằng nhau thì đưa ra xâu nhập sau. 


var 
a,b:string; 


begin 
write('Nhap ho ten thu nhat: '); readln(a); 
write('Nhap ho ten thu hai: '); readln(b); 
if length(a)>length(b) then write(a) else write (b); 
readln 

end. 

Vídu 2 


Chương trinh dưới đây nhập hai хаи từ bàn phím và kiểm tra kí tự đầu tiên 
của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không. 
var x: byte; 
a,b: string; 
begin 
write('Nhap xau thu nhat: '); 
readln(a); 
write('Nhap xau thu hai: '); 


readln(b); 
x:-length(b); 
(xac dinh do dai xau b de biet vi tri cua ki tu cuoi cung) 
if a[l]-b[x] then write('Trung nhau') 
else write('Khac nhau'); 
readln 
end. 


Vídu3 


Chương trinh sau nhập một xâu vào từ bàn phím và dua ra màn hình xâu đó 
nhưng được viết theo thứ tự ngược lại. 
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var i,k: byte; 
a: string; 

begin 
write ("Мћар xau: ')¿ 
readln(a); 


k:= length(a);{xac dinh do dai xau} 
for i:= k downto 1 do write(a[i]); 
readln 

end. 

Ví dụ 4 


Chương trình sau nhập một xâu vào từ bàn phím và đưa ra màn hình xâu thu 
được từ nó sau khi loại bổ các dấu cách nếu có. 
var i,k: byte; 
a, b: string; 
begin 
write('Nhap xau: '); 
readln(a); 


k:- length(a); 
b:- ''; (* Khoi tao xau rong * 
for i:= 1 to k do 
if а[1]<>' ' then b:-bta[i]; 
writeln('Ket qua: ',b); 
readln 
end. 
Vídu 5 


Chuong trinh sau nháp vào tit bàn phím xàu kí tu sl, tao xàu s2 góm tát cà 
các chit só có trong s1 (giit nguyén thú ty xuát hién cüa chúng) và dua két quà ra 
màn hinh. 

program XuLiXau; 

var sl, s2: string; 


і: byte; 
begin 
write('Nhap vao xau sl: '); 


readln(sl); 
в2:= ''; {Khoi tao xau 52 rong} 
:- 1 to length(s1) do 
if ('O'«-sl[i]) and (51[1]<= '9') then 
writeln('Ket qua: ', s2); 
readln 
end. 


= s2+s1l[il]; 
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— _—_ Dài tập và thuc hành 5 


1. Mục đích, yêu cầu 


Làm quen với việc tìm kiếm, thay thế và biến đổi хаи. 
2. Nội dung 


Bài 1. Nhập vào từ bàn phím một xâu. Kiểm tra xâu đó có phải là xâu đối xứng 
hay không. Xâu đối xứng có tính chất: đọc nó từ phải sang trái cũng thu được 
kết quả giống như đọc từ trái sang phải (còn được gọi là xâu palindrome). 
a) Hãy chạy thử chương trình sau: 
var i,x: byte; 
a,p: string; 

begin 
write('Nhap vao xau: '); 
readln(a); 


ength(a); {xac dinh do dai cua xau } 


ñ (khoi tao xau rong ) 
for i:-x downto 1 do 

p:-pta[i]; {tao xau dao nguoc ) 
if a-p then 

write('Xau la palindrone') 
else 

write('Xau khong la palindrome'); 
readln 


end. 
b) Hãy viết lại chương trình trên, trong đó không dùng bién xâu p. 


Bài 2. Viết chương trình nhập từ bàn phím một хаи kí tự 5 và thông báo ra màn 
“ng Anh trong S (không phân biệt 


hình số lần xuất hiện của mỗi chữ cái t 
chữ hoa hay chữ thường). 


Bài 3. Nhập vào từ bàn phím một xâu. Thay thế tất cả các cum kí tự 'anh' bằng 
cum kí tự 'em'. 
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S1 3 KIÉU BÁN GHI 


Dü liéu kiéu bán ghi (record) düng dé mó tà các dói tuong có cüng mót só 
thuóc tính mà các thuóc tính có thé có các kiéu dit liéu khác nhau. 

Ví du, báng két quà thi góm thóng tin vé các thí sinh nhu ho và tén, ngày 
sinh, giới tính, điểm các môn thi,... mà những thông tin này thuộc các kiểu dữ 
liệu khác nhau. 


Bảng kết quả thi 


Điểm | Điểm |Điểm| Điểm |Điểm | Điểm | Điểm 
Tin | Toán | Lí | Hoá | Văn | Sử | Địa 
Nguyễn Thi Minh Ниё | 12/12/1990 | Nữ | 9 | 10 | 7 8 8 |7 |в 
Dương Trúc Lâm 2/1/1990 | Мат | 9 10 | 8 8 9 |6 |7 


Pao Văn Binh 5/12/1990 | Мат | 8 8 9 8 7 7 6 


Ho và tën Ngày sinh 


Một ví du khác, khi xem xét doanh số của một cửa hàng, ta quan tâm đến tập 
hoá đơn bán hàng, mỗi hoá đơn đều có các thuộc tính như tên hàng, đơn giá, 
chủng loại, số lượng bán, giá thành, người bán, người mua, ngày bán,... 


Để mô tả các đối tượng như vậy, ngôn ngữ lập trình cho phép xác định kiểu 
dii liệu bản ghi (trong C++ gọi là kiểu cấu trúc (struct)). Mỗi đối tượng được mô 
tả bằng một bản ghi. Mỗi thuộc tính của đối tượng tuong ứng với một /rường của 
bản ghi. Các trường khác nhau có thể có các kiểu dữ liệu khác nhau. 
Ngôn ngữ lập trình đưa ra quy tác, cách thức xác dinh: 
° Tên kiểu bản ghi; 
° Tên các thuộc tính (trường); 
° Kiểu dữ liệu của mỗi trường; 
e Cách khai báo biến; 
e Cách tham chiếu đến trường. 
Dưới đây giới thiệu cách khai báo kiểu, biến, tham chiếu đến trường và phép 
gán giá trị bản ghi trong Pascal. 
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1. Khai báo 

Các thông tin cán khai báo bao gồm tên kiểu bản ghi, tên các thuộc tính, 
kiểu dữ liệu của mỗi thuộc tính. 

Do dữ liệu kiểu bản ghi thường dùng để mô tả nhiều đối tượng nên ta thường 
định nghĩa một kiểu bản ghi và sau đó dùng nó để khai báo các biến liên quan. 

Kiểu bản ghi thường được định nghĩa như sau: 

type <іёп kiểu bán ghi» = record 


<tên trường 1>: <kiéu trường 1»; 


<tên trường К>: <kiểu trường k>; 
end; 


Sau khi có kiểu bản ghi. biến kiểu bản ghi có thể được khai báo như sau: 
var 
<tên biến bán ghi»: «tén kiểu bản ghi»; 

Ví du 

Để xử lí bảng kết quả thi nêu trên ta có thể khai báo Lop là biến mảng một 
chiều, mỗi phần tử mảng là một bản ghi HocSinh (dữ liệu về một học sinh). Mỗi 
bản ghi HocSinh gồm các thông tin: HoTen, NgaySinh, GioiTinh và điểm 7 món 
thi: Tin, Toan, Li, Hoa, Van, Su, Dia. 


HeTen |String|30] 


NgaySinh |String[10] 


L 


GioiTinh 


8 
5 


< = 
o Š 
2 8 $ r 


= 
5 


Hinh 14. Bán ghi HocSinh 
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Trong chương trình xử lí kết quả thi có thể sử dung khai báo sau đây: 
const Max =60; {gia thiet si so lop cao nhat la €0} 
type 
HocSinh = record 
HoTen: string[30]; 
NgaySinh: string[10]; 
GioiTinh: boolean; 
Tin, Toan, Li, Hoa, Van, Su, Dia: Real; 
end; 
var 
A, B: HocSinh; 
Lop: array[1..Max] of HocsSinh; 
Nếu A là biến kiểu bán ghi và X là tên một trường của A, thì để tham chiếu 
đến trường X, ta viết: 
A.X 


Để tham chiếu đến điểm tin học của một học sinh trong ví dụ trên ta viết: 
A.Tin 


2. Gón giá trị 
Có hai cách để gán giá trị cho biến bản ghi: 
• Ding lệnh ейп trực tiếp: Nếu A và B là hai biến bản ghi cùng kiểu, thì ta 
có thể gán giá trị của B cho A bằng câu lệnh: 
A:= B; 

* Gán giá trị cho từng trường: Có thé thực hiện bằng lệnh рап hoặc nhập 

từ bàn phím. 

Ví dụ, một lớp gồm N (N х 60) học sinh. Câu quán lí học sinh với các thuộc 
tính như họ và tên, ngày sinh, địa chỉ, điểm toán, điểm văn, xếp loại. Giả sử việc 
xếp loại được xác định như sau: 

e _ Nếu tổng điểm toán và văn lớn hơn hoặc bằng 18 thì xếp loại A. 

ə _ Nếu tổng điểm toán và văn lớn hơn hoặc bằng 14 và nhỏ hơn 18 thì xếp 

loại B. 
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e Néutóng điểm toán và văn lớn hơn hoặc bằng 10 và nhỏ hơn 14 thi xếp 
loại C. 


e _ Nếu tổng điểm toán và văn nhỏ hon 10 thì xếp loai D. 


Chú ý rằng, trong các thuộc tính cần quản lí, chỉ có năm thuộc tính đầu là 
độc lập, còn thuộc tính xếp loại được xác định dựa vào các điểm toán và văn. Để 
lưu trữ thông tin về học sinh, ta dùng kiểu bản ghi với sáu trường tương ứng với 
sáu thuộc tính cần quản lí. 


Dưới đây là chương trình nhập vào từ bàn phím thông tin của từng học sinh 
trong lớp, thực hiện xếp loại và đưa ra màn hình kết quả xếp loại học sinh: 


program Xep loai; 


uses crt; 


const Max = 60; 


type 


var 


Lop: 


N,i 

begin 
cir 
wri 
for 


HocSinh = record 
HoTen: string[30]; 
NgaySinh: string[10]; 
DiaChi:string[50]; 
Toan, Van:real; 
XepLoai:char; 
end; 


array[l..Max] of HocSinh; 
: Byte; 


Scr; 


te('So luong hoc sinh trong lop N = ');readln(N); 


i:- 1 to N do 

begin 
writeln('Nhap so lieu ve hoc sinh thu ',i,': '); 
write('Ho va ten: ');readln(Lop[i].HoTen); 
write('Ngay sinh: ');readln(Lop[i].NgaySinh); 
write('Dia chi: ');readln(Lop[i].DiaChi); 
write('Diem Toan: ');readln(Lop[i].Toan); 
write('Diem Van: ');readln(Lop[i].Van); 


if Lop[i].ToantLop[i].Van»-18 
then Lop[i].XepLoai:-'A'; 

if (Lopli].ToantLop[i].Van»-14)and 
(Lop[i].ToantLop[i].Vanc18) 
then Lop[i].XepLoai:-'B'; 
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if  (Lop[i].ToantLop[i].Van>=10) and 
(Lop[i].ToantLop[i].Van«14) 
then Lop[i].XepLoai:-'C'; 
(Lop[i].ToantLop[i].Vanc10) 
then Lop[i].XepLoai:-'D'; 


if 


end; 

clrscr; 

writeln('Danh sach хер loai hoc sinh trong lop: ')¿ 
for i:= 1 to N do 


writeln(Lop[i].HoTen: 30," 


- Хер loai: ',Lopli].XepLoai); 
readln 


Kiểu dữ liệu có cấu trúc được xây dựng từ những kiểu dü liệu đã có 
theo quy tắc, khuôn dạng do ngôn ngữ lập trình cung cấp. 

Mang một chiều 

o Mang một chiều là dãy hữu hạn các phán tử cùng kiểu. 

о Khai báo: tên mảng, kiểu chỉ số, kiểu phần tử. 

о Tham chiếu phán tử mảng: tên biên mảng[ chỉ số phán tuj 
Mang hai chiều 

o Mang hai chiều là bang các p 
o Khai 


tử cùng kiểu. 
áo: tên mảng, kiểu chỉ số hàng, kiểu chỉ số cột, kiểu phần tử. 


о Tham chiếu phán tử mảng: tên bién mảng[chỉ số hàng, chỉ số cót] 
> Kiểu dữ liệu xâu 


о Kaula dãy các kí tự trong bộ mã ASCII. 
о Các thao tác xử lí thường sử dung: 

— Phép ghép xâu; 

— Phép so sánh; 

— Các thủ tục và hàm chuẩn xử lí xâu. 
> Kiểu bản ghi 


o Khai báo: tên bản ghi, tên và kiểu các trường. 


о Tham chiếu trường của bản ghi: tên bién bản ghi.tên trường 
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ором 


CÂU HỎI VÀ BÀI TẬP 


. Tai sao mảng là kiểu dữ liệu có cấu trúc? 

. Tai sao phổi khai báo kích thước của mång? 

. Các phản їй của mång có thé có những kiểu gi? 

. Tham chiếu đến phản їй của mång bằng cách nào? 


. Viết chương trinh nhộp tù bàn phím số nguyên duong N (N < 100) và 


dày A gồm N số nguyên A,, Az... An có giá tri tuyệt đối không lớn 
hon 1000. Hày cho biết dày A có phái là mót cáp số cộng hay 
khóng và thóng báo két quà ra màn hinh. 


. Viết chương trinh nhộp tù bàn phím số nguyên duong N (N < 100) và 


dày A gồm N số nguyên A, A;,..., An có tri tuyệt đối không lớn hơn 
1000. Hày dua ra những thông tin sau: 

а) Số lượng só chán và số lẻ trong dày; 

b) Só lượng số nguyên tő trong dày. 


. Day Flà dày Phi-bó-na-xi nếu: 


Fo = 0; F4 = 1; Fy = Fy4 + Fua với N > 2. 

Viét chuong trinh пһар їй bàn phím só nguyén duong N và dua ra 
тап hinh só hang thú N của dày Phi-bó-na»x. Chương trinh của ban 
thục hiện được với giá trị lớn nhát của N là bao nhiêu? 


. Chương trình sau dáy thuc hiện những gi? 


program BT8; 
const NMax = 50; 
type Mass = array[l..NMax,0..NMax-1] of real; 
var A: Mass; 
i, j, N: byte; C: real; 
begin 
write('Nhap N = '); readln(N); 
for i:- 1 to N do 
for j:- 0 to N-1 do 
begin 
write('A[',i,',',j,']- '); readln(A[i,3]); 
end; 
for i:= 1 to N do 
for j:- 0 to N-1 do 
begin 
C:= A[i,j]; 
A[i,j]:- A[N-i*1,3]; 
A[N-i†1,3]:= C; 
end; 
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for i:= 1 to N do 
begin 
for ј:= 0 to N-1 dowrite(A[i,j]:5:2," '); 
writeln 
end; 
readin 
end. 


9. Cho mỏng hai chiều kích thước nxn với các phan tú là những só 
nguyên. Tim trong mỗi hàng phản їй lớn nhát rồi đổi chỗ nó với 
phán tù có chỉ số hàng bằng chỉ số cột. 

Chương trình sau day giới bài toán trên: 
program Diag; 


var 
N, i, j, Max,Ind,Vsp: integer; 
A: array[1..15, 1..15] of integer; 
begin 
write('Nhap N nho hon 15: '); readln(N); 
for i:- 1 to N do 
for j:= 1 to N do 
begin 
write('A[', i, ',', ja "]= '); readln(A[i,j3]); 
1 to N do 
A[i,1]; Ind 
2 to N do 
if A[i,j] » Max then 
begin 
Max:- A[i,j]; Ind:- j 
end; 
Vsp:- A[i,i]; A[i,i]:= Max; A[i,Ind]:- Vsp; 
end; 
for i:= 1 to N do 
begin 
writeln; 
for j:- 1 to N do write(A[i,j]: 3); 
end; 
writeln 
end. 


Нау йа lợi chương trình trên khi thay yêu саи tim kiếm trong mỗi 
hàng bàng tim kiếm trong mỗi cội. 

10. Viết chương trinh nhộp їй bàn phím xêu kí tu S có dó dài không quá 
100. Нау cho biết có bao nhiêu chữ só xuết hiện trong хаи S. Thông 
báo kết quà ra màn hinh. 


11. Hãy bổ sung thêm vào chương trinh Хер /oai (ở 813) những lệnh 
cán thiết để chương trình đưa ra danh sách hoc sinh xếp loại A. 


huong | 


Tee VÀ THAO TÁC VÓI TÉP 
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51 Д kiểU po LIÉU TÉP 


1. 


Vai trò của kiểu tệp 


Tất cả các dữ liệu thuộc các kiểu dữ liệu đã xét đều được lưu trữ ở bộ nhớ 
trong (RAM) và do đó dữ liệu sẽ bị mất khi tắt máy. Với một số bài toán có khối 
lượng dữ liệu lớn, có yêu cầu lưu trữ để xử lí nhiều lần, cần có kiểu dữ liệu tệp (file). 


Kiểu dữ liệu tệp có những đặc điểm sau: 


Dữ liệu kiểu tệp được lưu trữ lâu dài ở bộ nhớ ngoài (đĩa từ, CD,...) và 
không bị mất khi tắt nguồn điện; 

Lượng dữ liệu lưu trữ trên tệp có thể rất lớn và chỉ phụ thuộc vào dung 
lượng đĩa. 


2. Phân loại tệp và thao tác với tệp 
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Xét theo cách tổ chức dữ liệu, có thể phân tệp thành hai loại: 


Tệp văn bản là tệp mà dữ liệu được ghi dưới dạng các kí tự theo mã 
ASCII. Trong tệp văn bản, dãy kí tự kết thúc bởi kí tự xuống dòng hay 
kí tự kết thúc tệp tạo thành một dòng. 

Các dữ liệu dạng văn bản như sách, tài liệu, bài học, giáo án, các chương 
trình nguồn viết bằng ngôn ngữ bậc cao,... thường được lưu trữ dưới dang 
tệp văn bản. 

Tệp có cấu trúc là tệp mà các thành phần của nó được tổ chức theo một 
cấu trúc nhất định. Tệp nhị phân là một trường hợp riêng của tệp có cấu 
trúc. Dữ liệu ảnh, âm thanh,... thường được lưu trữ dưới dang tệp có 
cấu trúc. 


Xét theo cách thức truy cập, có thể phân tệp thành hai loại: 


Tép truy cập tuần tự cho phép truy cập đến một dữ liệu nào đó trong tệp 
chỉ bằng cách bát đầu từ đầu tệp và đi qua lần lượt tất cả các dữ liệu 
trước nó. 

Tép truy cập trực tiếp cho phép tham chiếu đến dit liệu cần truy cập 
bằng cách xác định truc tiép vi trí (thường là số hiệu) của dữ liệu đó. 


Khác với mảng, số lượng phán tử của tệp không cán xác định trước. 
Hai thao tác cơ bản đổi với tệp là ghỉ dữ liệu vào tệp và đọc dữ liệu từ tệp. 
Thao tác đọc/ghi với tệp được thực hiện với từng phần tử của tệp. 
Để có thể thao tác với kiểu tệp, người lập trình cần tìm hiểu cách thức mà 
ngôn ngữ lập trình cung cấp để: 
° Khai báo biến tệp; 
° Mởiệp; 
°  Doc/ghi dữ liệu; 
° Đóng tệp. 


S1 Ð.THAo TÁC VỚI TỆP 


Trong mục này ta xét cách khai báo, thao tác với tệp văn bản trong Pascal. 


1. Khai báo 
Dé làm việc với kiểu dữ liệu tệp ta phải sử dung biến tệp. 
Khai báo biến tệp văn bản có dạng: 
var <іёп biến tép»: text; 
Ví du 
var tepl,tep2: text; 


Khai báo trên xác định hai biến tệp văn bán tepi và tep2. 


2. Thao tác với tệp 
a) Gắn tên tệp 

Mỗi tệp đều có một tén tép để tham chiếu. Tén tép là biến xâu hoặc hàng 
хаи, ví dụ 'DULIEU.DAT'. 

Trong lập trình, ta không thao tác trực tiếp với tệp dữ liệu trên đĩa mà thông 
qua biến tệp. Có thể hình dung biến tệp được ngôn ngữ lập trình sử dụng như đại 


diện cho tệp. 
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Do váy, dé thao tác vói tép, truóc hét phài gán tén tép vói dai dién cüa nó là 
bién tép báng thü tuc: 

assign (< biến tép», «tén tép») ; 
trong đó, tên tép là biến хаи hoặc hàng хаи. 

Sau lệnh này, các thao tác với biến tệp thực chất là thao tác với tệp. 


Om- O 3 P kwan E 


ULIEU.DAT') 


Tén bién tép trong 
chuong trinh 


Hình 15. Quan hé giữa tệp, biến tệp và tên tệp 
Ví dụ 1 
Giả thiết có biến tệp гер1 cần gắn với tệp có tên DULIEU.DAT. Để làm điều 
này ta thực hiện thủ tục sau: 
assign(tepl, 'DULIEU.DAT'); 
Vídu2 
Dé có thé doc dit liéu tir tép INP.DAT trén thu muc góc cüa dia C, ta cán gán 
tệp đó với một biến tệp, ví dụ là rep2 bởi thủ tục: 
assign(tep2, 'C: INP.DAT'); 
b) Mótép 
Tép có thể dùng để chứa kết quả ra hoặc dữ liệu vào. Trước khi mở tệp, biến 
tệp phải được gắn tên tệp bằng thủ tục assign. 
Câu lệnh dùng thủ tục mở tệp để ghi dữ liệu có dạng: 
гемгібе (<biếh tép») ; 
Ví du 
assign(tep3, 'C: KQ. DAT! ); 


rewrite(tep3); 
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Khi thuc hién thü tuc rewrite(tep3), nu trén thu muc góc cüa dia C chua có 
tệp KQ.DAT, thì tệp sẽ được tao với nói dung róng. Nếu đã có, thì nội dung cũ sẽ 
bị xoá để chuẩn bị ghi dữ liệu mới. 

"Trước khi đọc dữ liệu từ tệp đã gắn với một biến tệp, ta mở tệp bằng thủ tục: 

reset («bién tép») ; 

Vídu 

Dé doc dit liéu tit tép DL.INP, ta có thé mó tép bàng các thü tuc: 

tentep:- 'DL.INP'; 
assign(tepl,tentep); 
reset(tepl); 

hoặc 
assign(tepl, 'DL.TNP'); 
reset(tepl); 


c) Doclghi tệp văn bản 
Việc đọc tệp văn bản được thực hiện giống như nhập từ bàn phím. Việc ghi 
dữ liệu ra tệp van bản giống như ghi ra màn hình. Dữ liệu trong tệp уап bản được 
chia thành các dòng. 
Câu lệnh dùng thủ tục đọc có dạng: 
read (<biến tép»,«danh sách bién») ; 
hoặc 
readln (<biến tệp »,«danh sách bién») ; 
trong đó, danh sách biến là một hoặc nhiều tên biến đơn. Trong trường hợp 
nhiều biến thì các biến phân cách nhau bởi dấu phẩy. 
Câu lệnh dùng thủ tục ghi có dạng: 
write (<biến tép»,«danh sách kết qud») ; 
hoặc 
writeln (<biến tép»,«danh sách kết quả >); 
trong đó, danh sách kết quả gồm một hoặc nhiều phán tử. Phần tử có thể là biến 
đơn hoặc biểu thức (số học, quan hệ hoặc lógic) hoặc hằng xâu. Trường hợp có 
nhiều phần tử thì các phần tử được phân cách bởi dấu phầy. 
Ví dụ 
Giả sử trong chương trình có khai báo: 
var tepA, tepB: text; 
và tệp tepA được mở dé doc dữ liệu, còn tệp /epB dùng để ghi dữ liệu. 
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Các thü tuc düng dé doc dü liéu tir tép tepA có thé nhu sau: 
read(tepA,A,B,C); 


readln(tepA, X,Y); 

Các thủ tục dùng dé ghi dữ liệu vào tệp tepB có thể như sau: 

write(tepB,' A = W Aj' B = am t € = ',C); 

writeln(tepB,' XI = ',(-B - SQRT(B*B- 4*A*C))/(2*A):8:3); 

Một số hàm chuẩn thường dùng trong khi doc/ghi tệp văn bản: 

° Hàm еоғ («bién fệp>) trả về giá trị true nếu con trỏ tệp đang chỉ tới 

cuối tệp. 

e Hàm eoln (<biến fệp>) trả vé giá trị true nếu con trỏ tệp dang chỉ tới 
cuối dòng. 


d) Đóng tệp 
Sau khi làm việc xong với tệp cần phải đóng tệp. Việc đóng tệp là đặc biệt 
quan trọng sau khi ghi dữ liệu, khi đó hệ thống mới thực sự hoàn tất việc ghi dữ 
liệu ra tệp. 
Câu lệnh dùng thủ tục đóng tệp có dạng: 
close («bién tệp>) ; 
Ví du 
close (tepl); 
close (tep3) ; 
Sau khi đóng, một tệp vẫn có thể được mở lại. Khi mở lại tệp, nếu vẫn dùng 
biến tệp cũ thì không cần phải dùng thủ tục assign gắn lại tên tệp. 
Các thao tác với tệp được mô tả trong hình 16. 


assign(<biến tệp>,<tên tệp>); | 


Ghỉ Đọc 
к= 
rewrite(<bién tệp>) ; reset(<biến têp>); 


Write(«bién tệp>,<danh sách kết qui]; Ее: têp>,<danh sách bién») B 


close(<biến tệp>) ; i 


Hinh 16. Thao tác vói tép 
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S1 6. VÍ DU LÀM VIÉC VÓI TÉP 


Vídul 

Một trường trung hoc phó thông tổ chúc cho giáo viên và học sinh của 
trường đi cắm trại, sinh hoạt ngoài trời ở vườn quốc gia Cúc Phương. Để lên lịch 
đến thăm khu trại các lớp, thầy hiệu trưởng cần biết khoảng cách từ trại của 
mình (ở vị trí có toạ độ (0, 0)) đến trại của các giáo viên chủ nhiệm. Mỗi lớp có 
một khu trại, vị trí trại của mỗi giáo viên chủ nhiệm đều có toa độ nguyên (x, y) 
dược ghi trong tệp van bàn IRAI.IXI (như vậy, tệp IHAI.IXI chứa liên tiếp các 
cặp số nguyên, các số cách nhau bởi dấu cách và không kết thúc bằng kí tự 
xuống dòng). 

Chương trình sau sẽ đọc các cặp toạ độ từ tệp TRAI.TXT, tính rồi đưa ra màn 
hình khoảng cách (với độ chính xác hai chữ số sau dấu chấm thập phân) giữa trại 
của mỗi giáo viên chủ nhiệm và trại của thầy hiệu trưởng. 

program Khoang cach; 

var d:real; = 

f:itext; 
x,y:integer; 
begin 
assign[f, TRAI.TXT'); 
reset(f); 
while not eof(f) do 
begin 


read(f, x,y); 


di-oqrt (x*x! y 
writeln('Khoang cach:', d:10:2) 
end; 
close (f) 
end. 


Ví du 2. Tính dién tró tuong duong 
Cho ba điện trở R1, R2, ЁЗ. Sử dung cả ba điện trở để tạo ra nam mach điện 
có điện trở tuong duong khác nhau bằng cách mắc theo các sơ đồ nêu ở hình 17. 
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— 


Sodó N 


вз | 


Sadè mM 


saadv 
Hinh 17. Sơ đồ mắc điện trở 


Mỗi cách mắc sẽ cho một điện trở tương đương khác nhau. Ví dụ, nếu mắc 
theo sơ đồ 7 thì điện trở tương đương sẽ là: 


б RI*R2*R3 
R1*R2+RI*R3+R2*R3 
Nếu mắc theo sơ đồ V thì R = R1 + R2 + R3. 


Cho tệp van bán RESIST.DAT gồm nhiều dòng, mỗi dòng chứa ba số thuc R1, 
R2 và R3, các số cách nhau một dấu cách, 0 < R1, R2, R3 < 10°. 


Chương trình sau đọc dữ liệu từ tệp RESIST.DAT, tính các điện trở tương 
đương và ghi kết quả ra tệp văn bản RESIST.EQU, mỗi dòng ghi năm điện trở 
tương đương của ba điện trở ở dòng dữ liệu vào tương ứng. 

program Dientro; 

var a:arvay[l..5] of real; 

R1,R2,R2:Real; 
i:integer; 
fl,f2:text; 
begin 
assign(fl, 'RESIST.DAT'); 
reset (#1); 
assign(f2, 'RESIST.EQU'); 
rewrite[f2); 
while not eof(fl) do 
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begin 
readln(fl,R1,R2,R3); 

R1*R2*R3/ (R1*R2+E1*R3+R2*R3) ; 
:=R1*R2/ (R1+R2)+R3; 

R1*R3/ (R1+R3)+R2 
2*R3/(R2+R3)+R 
:=R1+R2+R3; 

:=1 to 5 do write(f2,a[i]:9:3,' '); 


writeln(f2); 


end; 
close(fl); close(f2) 
end. 


Việc trao đổi dü liệu với bộ nhớ ngoài được thực hiện thông qua kiểu 
đữ liệu tệp. 
Để có thể làm việc với tệp cán phải khai báo biến tệp. 


Mỗi ngôn ngữ lập trình đều có các hàm/thủ tục chuẩn để làm việc 
với tệp. 


Các thao tác với tệp văn bản: 
о Khai báo biến tệp, mở tệp và đóng tệp. 
o Boc/ghi: tương tự như làm việc với bàn phím và màn hinh. 


CÂU HỎI VÀ BÀI TẬP 
1. Nêu môt số trường hợp can phái dùng tệp. 


2. Trong sơ dó Шао lúc với lệp, khi can ghi dữ liệu vào 1ер phổi dung 
những thao tác nào? 


3. Tai sao сап phái có câu lệnh mở tệp †rước khi doc/ghi tệp? 


4. Tai sao phái dùng саи lệnh đóng tệp sau khi dà kết thúc ghi dữ liệu 
vào tệp? 
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Chuang V7] 


Сниохе TRINHCON 
VA LAP TRINH CO CAU TRUC 


Se nan niod 


S1 7. CHUONG TRINH CON VÀ PHÁN LOAI 


1. Khái niệm chương trinh con 

Các chương trình giải các bài toán phúc tạp thường rất dài, có thể gồm hàng 
trăm, hàng nghìn lệnh. Khi đọc những chương trình dài, rất khó nhận biết được 
chương trình thực hiện các công việc gì và việc hiệu chỉnh chương trình cũng 
khó khăn. Vì vậy, vấn đề đặt ra là phải cấu trúc chương trình như thế nào để cho 
chương trình dë đọc, dễ hiệu chỉnh, dë nâng cấp. 

Mặt khác, việc giải quyết một bài toán phức tạp thường đòi hỏi và nói chung 
có thể phân thành các bài toán con. 

Xét bài toán tính tổng bốn luỹ thừa: 

TLuythua = a" + b” + "+ а 


Bài toán trên bao gồm bón bài toán con tính a", b”, c^, d’, có thể giao cho 
bón người, mỗi người thuc hiện một bài. Giá tri TLuythua là tổng kết quả của 
bốn bài toán con đó. Với những bài toán phức tạp hơn, mỗi bài toán con lại có 
thé được phân chia thành các bài toán con nhỏ hơn. Quá trinh phân rã làm "min" 
dần bài toán như vậy được gọi là cách thiết kế từ trên xuống. 

Tương tự, khi lập trình để giải bài toán trên máy tính có thể phân chia 
chương trình (gọi là chương trình chính) thành các khối (módun), mỗi khối bao 
gầm các lệnh giải một hài toán con nào đá. Mỗi khối lệnh sẽ được xây dựng 
thành một chương trình con. Sau đó, chương trình chính sẽ được xây dựng từ các 
chương trình con này. Chương trình con cũng có thể được xây dựng từ các 
chương trình con khác. 


Cách lập trình như vậy dựa trên phương pháp lập trình có cấu trúc và chương 


trình được xây dựng gọi là chương trình có cấu trúc. 
Chương trình con là một dấy lệnh mô tả một số thao tác nhất định và có thể 
được thực hiện (được gọi) từ nhiều vị trí trong chương trình. 
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Ví du, chuong trinh nháp ай liéu tir bàn phím, tính và dua ra màn hinh giá 
tri TLuythua được mô tả như trên với a, b, c, d có kiểu thực và m, n, p, q có kiểu 
nguyén có thé viét bàng Pascal nhu sau: 

program tinh tong; 

var TLuythua, Luythual, Luythua2, Luythua3, Luythua4: real; 

a,b,c,d: real; 
i,n,m,p,q:integer; 
begin 
write('Hay nhap du lieu theo thu tu a,b,c,d,m,n,p,q'); 
readln(a,b,c,d,m,n,p,q); 


TLuythua:- Luythual-*Luythua2*Luythua3*Luythua4; 
writeln('Tong luy thua = ', TLuythua:8:4); 
readln 

end. 

Trong chương trình trên có bốn đoạn lệnh tương tự nhau, việc lặp lại những, 
đoạn lệnh tương tự nhau làm cho chương trình vừa dài vừa khó theo dõi. Để nâng 
cao hiệu quả lập trình, các ngôn ngữ lập trình bậc cao đều cung cấp khả năng 
xây dựng chương trình con dạng tổng quát "đại diện" cho nhiều đoạn lệnh tương 
tự nhau, chẳng hạn tính luy thừa Luythua = x, trong đó Luythua và x là giá trị 
kiểu thực còn k thuộc kiểu nguyên: 


Ta có thể đặt tên cho chương trình con này là Luythua và tên các biến chứa 
dit liệu vào của nó là x và k. Khi cần tính luỹ thừa của những giá trị cụ thể ta chỉ 
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cán viét tén goi chuong trinh con và thay thé (x, k) bàng giá tri cu thé tuong úng. 
Chàng han để tính а", b", œ, d! ta viết Luythua(a, n), Luythua(b, m), 
Luythua(c, p), Luythua(d, q). 


Loi ích của việ 


sử dụng chương trình con 


Tránh được việc phải viết lặp di lặp lại cùng một айу lệnh nào đó tương 
tự như trong ví dụ tính TLuythua ở trên. Ngôn ngữ lập trinh cho phép tổ 
chức dãy lệnh đó thành một chương trình con. Sau đó, mỗi khi chương 
trình chính cần đến dãy lệnh này chỉ cần gọi thực hiện chương trình 


con đó. 
Hỗ trợ việc thực hiện các chương trình lón: Khi phải viết chương trinh 
lớn hàng nghìn, hàng vạn lệnh, cần huy động nhiều người tham gia, có 
thể giao cho mỗi người (hoặc mỗi nhóm) viết một chương trình con. rồi 
sau đó lắp ghép chúng lại thành chương trình chính. Ví dụ, với các bài 
toán mà việc tổ chức dữ liệu vào và ra không đơn giản thường người ta 
chia bài toán thành ba bài toán con như nhập, xử lí và xuất dữ liệu, rồi 
viết các chương trình con tương ứng. 

Phục vụ cho quá trình trừu tượng hoá: Người lập trinh có thể sử dụng 
các kết quả được thực hiện bởi chương trình con mà không phái quan 
tâm đến việc các chương trình con đó được cài đặt như thế nào. Trừu 
tượng hoá là tư tưởng chủ đạo để xây dựng chương trình nói chung và 
chương trình có cấu trúc nói riêng. 


Mỏ rộng khả năng ngôn ngữ: Các ngôn ngữ lập trình thường cung cấp 
phương thức đóng gói các chương trình con nhằm cung cấp như một câu 
lệnh mới (tương tự như các lệnh gọi thực hiện các hàm và thủ tục chuẩn) 
cho người lập trình sử dụng mà không cần biết mã nguồn của nó như thế 
nào. Hiện nay, ngày càng có nhiều thiết bị kĩ thuật số tiện ích như máy 
quay phim, máy ảnh, máy ghi âm, các thiết bị âm thanh, màn hình màu 
độ phân giải cao,... có thế được kết nối với máy tính. Việc thiết kế những 
chương trình con thực hiện các giao tiếp cơ bản với các thiết bị như vậy 
là rất cần thiết và giúp mở rộng khả năng ứng dụng của ngôn ngữ. 

Thuận tiện cho phát triển, nâng cấp chương trình: Do chương trình được 
tạo thành từ các chương trình con nên chương trình dễ đọc, dễ hiểu, dễ 
kiểm tra và hiệu chỉnh. Việc nâng cấp, phát triển chương trình con nào 
đó, thậm chí bổ sung thêm các chương trình con mới nói chung không 
gây ảnh hưởng đến các chương trình con khác. 
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2. Phân loại và cáu trúc của chương trình con 
а) Phản loại 

Trong nhiều ngôn ngữ lập trình, chương trình con thường gồm hai loại: 

e Hàm (function) là chương trình con thực hiện một số thao tác nào đó và 
trả về một giá trị qua tên của nó. Ví dụ hàm toán học hay hàm xử lí xâu: 

sin(x) nhận giá trị thuc x và trả về giá tri sinx, 
sqrt (x) nhận giá tri x và trà vé giá trị căn bậc hai của x, 
length (x) nhận хай x và trả về độ dài của xâu x,... 

e Thi tuc (procedure) là chương trình con thực hiện các thao tác nhất định 
nhưng không trả về giá trị nào qua tên của nó. Ví dụ các thủ tục vào/ra 
chuẩn hay thủ tục xử lí xâu: 

writeln, readln, delete, insert,.. 
b) Cấu trúc chương trinh con 
Chương trinh con có cấu trúc tương tự chương trình, nhưng nhất thiết phải có 
tên và phần đầu dùng để khai báo tên, nếu là hàm phải khai báo kiểu dữ liệu cho 
giá trị trả về của hàm: 
<phán dáu> 
[<phán khai báo>] 
<phán thán> 

Phán khai báo 

Phán khai báo có thé có khai báo bién cho dü liéu vào và ra, các hàng và 

bién düng trong chuong trinh con. 

Phán thàn 


Phần thân của chương trinh con là dãy câu lệnh thực hiện dé từ những dữ 
Tiện vào ta nhận được dữ liêu ra hay kết quả mong muốn. 


Tham số hình thức 


Các biến được khai báo cho dữ liệu vào/ra được gọi là tham số hình thức của 
chương trình con. Các biến được khai báo để dùng riêng trong chương trình con 
được gọi là biến cục bộ. 

Ví dụ, trong chương trình con Luythua(x, k) ở phần 1 thì x, k là các tham số 
hình thức và j là biến cục bộ. 


94 


Nói chung, chương trinh chính và các chương trình con khác không thé sử 
dung được các biến cục bộ của một chương trình con, nhưng moi chương trình 
con đều sử dụng được các biến của chương trình chính. Do vậy, các biến của 
chương trình chính được gọi là biến toàn cục. Ví dụ, biến TLuythua khai báo 
trong chương trình chính ở ví dụ trên là biến toàn cục. 

Một chương trình con có thể có hoặc không có tham số hình thức, có thể có 
hoặc không có biến cục bộ. 

c) Thực hiện chương trình con 

Tham số thực sự 

Để thực hiện (gọi) một chương trình con, ta cần phải có lệnh gọi nó tương tự 
lệnh gọi hàm hay thủ tục chuẩn. bao gồm tên chương trình con với tham số (nếu 
có) là các hằng và biến chứa dữ liệu vào và ra tương ứng với các tham số hình 
thức đặt trong cặp ngoặc ( và ). Các hằng và biến này được gọi là các tham số 
thuc su. 

Ví dụ 

sar (225) 


Tén chương trình con Tham số thực sự| 


Khi thực hiện chương trình con, các tham số hình thức dùng để nhập dữ liệu 
vào sẽ nhận giá trị của tham số thực sự tương ứng, còn các tham số hình thức 


dùng để luu trữ dữ liệu ra sẽ trả giá trị đó cho tham số thực sự tương ứng. 

Ví dụ, khi thực hiện tính TLuythua cán bốn lần gọi chương trinh con 
Luythua(x, k) với các tham số (а, n), (b, т), (c, p), (d, q) và các tham số này là 
tham số thực sự tuong ứng với tham số hình thức (x, k). 

Sau khi chương trình con kết thúc, lệnh tiếp theo lệnh gọi chương trình con 
sẽ được thực hiện. 
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VÍ DU VÉ CÁCH VIÉT VÀ SÜ DUNG 
81 8. CHƯƠNG TRÌNH CON 


Các ngôn ngữ lập trình đều có các quy tắc viết và sử dụng chương trình con. 
Trong mục này, ta xét cách viết và sử dụng chương trình con trong Pascal. 


1. Cách viết và sử dụng thủ tuc 
Xét ví dụ vẽ hình chữ nhật có đạng sau: 
4b & Điện dị d 
* ý 


* k k k жож + 


Ta có thé vẽ hinh chữ nhật trên với ba câu lệnh: 


writeln('* * * * * * ж. 


writeln('* xử) 


wiitelnp9& $ ж $ £X Hy 


Như váy, trong một chương trình, mỗi khi cần vẽ một hinh chữ nhật nhu trên, 
ta cần phải đưa vào ba câu lệnh này. 


Trong chương trình sau, ta đưa ba câu lệnh trên vào một thủ tục có tên là 
Ve Hcn (vẽ hình chữ nhật). Mỗi khi cần vẽ một hình chữ nhật ta đưa vào một 
câu lệnh gọi thủ tục đó. Chương trình VD_thutuc] gọi thủ tuc Уе Hcn ba lần để 
vẽ ba hình chữ nhật. 

program VD_thutucl: 

procedure Ve Hcn; (Bat dau thu tuc} 

begin 
writeln('* * * * ж * уту, 


writeln('* жуд 


writeln('* * * * * * *'); 


end; (Ket thuc thu tuc) 
begin 
Ve Hcn; {goi thu tuc Ve Hcn) 
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writeln;writeln; (de cach 2 dong) 


Ve_Hcn; {goi thu tuc Ve_Hcn) 
writeln;writeln; 
Ve Hcn; {goi thu tuc Ve Hen) 
end. 


a) Cáu trúc cia thú tuc 
Thi tuc có cấu trúc nhu sau: 
procedure <iên thủ tuc»[(«danh sách tham só»)]; 
I«phán khai báo>] 
begin 
I«dáy các lệnh>] 
end; 
Phán dáu thú tuc góm tén dành riéng procedure, їїёр theo là tén thü tuc. 
Danh sách tham số có thể có hoặc không có. 
Phân khai báo dùng dé xác định các hằng, kiểu, biến và cũng có thể xác 
định các chương trình con khác được sử dụng trong thủ tục. Thủ tuc Ve Hen ở 
trên không khai báo hằng, biến hay chương trình con nào. 


Рау câu lệnh được viết giữa cặp tên dành riêng begin và end tạo thành thân 
của thủ tục. 


Chú ý: Sau tên dành riêng end kết thúc chương trình chính là dấu 

chấm (.) còn sau end kết thúc thủ tục là dấu chấm phẩy (;) 

Các thủ tục, nếu có, phái được khai báo và mô tả trong phán khai 

báo của chương trình chính, ngay sau phần khai báo các biến. 

Khi cần thực hiện, ta phải viết lệnh gọi thủ tục tương tự như các 

thủ tục chuẩn. 
b) Ví dụ về thủ tục 

Thủ tuc Ve Hcn trong ví dụ trên chỉ vẽ được hình chữ nhật với kích thước 

cố định là 7x3. Giả sử chương trình cần vẽ nhiều hình chữ nhật với kích thước 
khác nhau. Để thủ tục Ve. Нсл có thé thực hiện được điều đó, cần có hai tham số 
cho dữ liệu vào là chiều dài và chiêu rộng. Khi đó phần đầu của thủ tuc được viết 
như sau: 


procedure Ve Hcn(chdai,chrong: inEeger) ; 
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Khai báo này có nghĩa thủ tuc Ve. Hcn sẽ được thực hiện để vë hình chữ nhật 
có kích thước tuy theo giá trị của các tham số chdai, chrong và giá trị của các 
tham số chdai và chrong là nguyên (integer). 

Chương trinh sau đây mô tả đây đủ thủ tục Ve Hcn với các tham số chdai, 
chrong và sử dụng thủ tục này để vẽ các hình chữ nhật có kích thước khác nhau. 


program VD thutuc2; 
uses crt; 
var a, b, i: integer; 
procedure Ve Hcn(chdai, chrong: integer); 
var i, j: integer; 
begin 
(ve canh tren cua hinh chu nhat] 
for і:= 1 to chdai do write('*'); 
writeln; 


to chrong-2 do (ve 2 canh ben) 


for j 
begin 
write (*')¿ 
for i:=1 to chdai-2 do write(' '); 


writeln('*); 
end; 
{ve canh đuoi} 


for i:-1 to chdai do write('*); 
writeln; 
end; 
begin (bat dau chuong trinh chinh] 
clrscr; 
(ve hinh chu nhat kich thuoc 25x10} 
Ve Hcn(25,10); 
writeln; writeln; (de cach 2 dong) 
(ve hinh chu nhat kich thuoc 5x10) 
Ve Hcn(5,10); 
readln; 
clrscr; 
(Ve 4 hinh chu nhat: hinh dau tien co kich thuoc 4x2, 
moi hinh sau co kich thuoc gap doi hinh truoc ) 
а:=4; b 
for і:=1 to 4 do 
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begin 
Ve Hcn(a,b); 
readln; clrscr; 
a:-a*2; b:— b*2; 


end; 


readln; 

end. 

Trong lệnh gọi thủ tuc, các tham số hình thức được thay bàng các tham số 
thực sự tương ứng là các giá tri cụ thể được gọi là các tham số giá tri (gọi tắt là 
tham trì). 

Các tham số chdaï, chrong của thủ tục Ve Hen là tham trị. Trong lệnh goi 
thủ tuc Ve_#en(5, 3) (vẽ hình chữ nhật kích thước 5x3) tham số chdai được thay 
bởi số nguyên 5, tham số chrong được thay bởi số nguyên 3. 

Cón trong lời gọi thủ tuc Ve Hcn(a, b) vẽ hình chữ nhật kích thước axb, 
tham số слаі được thay bởi giá trị hiện thời của biến a, tham số chrong được 
hay bởi giá trị hiện thời của biến b. 


Trong lệnh gọi thủ tục, các tham số hình thức được thay bằng các tham số 
thực sự tương ứng là tên các bién chứa dit liệu ra được gọi là các tham số biến 
(gọi tắt là tham biến). 


Để phân biệt tham biến và tham trị, Pascal sử dụng từ khoá var để khai báo 
những tham số biến 

Ví dụ, thủ tục Hoan_doi trong chương trình sau đổi giá trị của hai biến. Vì 
cả hai biến đều chứa dữ liệu ra nên cần sử dụng từ khoá var để khai báo cho cả 
hai biến. 

program VD thambienl; 

uses crt; 

var a,b: integer; 

procedure Hoan doi(var x,y: integer); 


var TG: integer; 


begin 
TG:- x; 
xi yr 
y:- T6; 
end; 
begin 
clrscr; 
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writeln(a:6,b:6); 
Hoan doi (a,b); 
writeln(a:6,b:6); 


end. 


Khai báo sau xác dinh x và y là hai tham biến kiểu nguyên: 


var x,y: integer; 


Trong lénh goi Hoan. doi(a, b) các tham bién x và y duoc thay thé bói các bién 


nguyên tương ứng a và b. 


Giá tri cüa các bién này bi thay dói khi thuc hién các lénh: 


TG:-a; a:-b; b:-TG; 


Do vậy, sau khi thực hiện thủ tuc Hoan doi, biến a sẽ nhận giá tri của bién b 
và biến b nhan giá trị của biến а. Nếu giá trị của a là 5 còn giá trị của b là 10 thì 


trên màn hình có hai dòng: 


5 10 
10 5 


Chương trình sau cho thấy sự khác nhau khi chương trình con dùng tham số 


giá trị và tham số biến (có và không khai báo với từ khoá var): 


program VD thambien2; 
uses crt; 

var a, b: integer; 
procedure Hoan doi (х: 


var TG: integer; 


begin 
TG:-x; 
x:=y; 
y:-TG; 
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writeln(a:6, b:6); 
Hoan doi (а,Ь); 
writeln(a:6, b:6); 


end. 


integer; 


var y: 


integer); 


Khi chuong trinh thuc hién, së nhán duoc két quà: 
5 10 
3 


2. Cách viết và sử dụng hàm 

Điểm khác nhau cơ bản giữa thủ tục và hàm là việc thực hiện hàm luôn trả 
về giá trị kết quả thuộc kiểu xác định và giá trị đó được gán cho tên hàm. 

Hàm có cấu trúc tương tự như thủ tục, tuy nhiên có khác nhau phần đầu. 


Khai báo phần đầu một hàm như sau: 


function <tên hàm> [ («danh sách tham số>)]: <kiểu dữ liéu»; 


trong đó, kiểu dữ liệu là kiểu dit liệu của giá trị mà hàm trả vé và chỉ có thể là 
các kiểu integer, real, char, boolean, string. 

Cũng giống như thủ tục, nếu hàm không có tham só hình thức thì không cán 
danh sách tham số. 

Khác với thủ tục, trong thân hàm cần có lệnh gán giá trị cho tên hàm: 

<tên hàm>:= «biéu thức>; 

Ví dụ I 

Xét chương trình thực hiện việc rút gọn một phân số, trong đó có sử dụng 
hầm tính ước chung lớn nhất (ƯCLN) của hai số nguyên. 

program Rutgon Phanso; 

uses crt; 

var TuSo, MauSo, a: integer; 


function UCLN(x, y: integer): integer; (bat dau ham UCLN) 
var sodu: integer; 


begin 
while у<>0 do 
begin 


end; (het ham UCLN) 


begin 
clrscr; 
write('Nhap tu so, mau so vao! '); readln(TuSo, MauSo); 
a:=UCLN(TuSo, MauSo] ; 
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if а>1 then 


begin 
TuSo:- TuSo div a; 
Maus MauSo div a; 
end; 
writeln(TuSo:5, MauSo:5); 


end. 


Ghi chú: Trong chương trình này, các biến TuSo, MauSo và a là các bién 
toàn cục, còn bién sodu là biến cuc bó. 
Sử dung hàm 
Việc sử dụng hàm hoàn toàn tương tự với vié 
viết lệnh gọi gồm tên hàm và tham số thực sự tương ứng với các tham số 
hình thức. 


Lệnh gọi hầm có thể tham gia vào biểu thức như một toán hạng và thậm chí 
là tham số của lời gọi hàm, thủ tục khác, ví dụ: 


sử dụng các hàm chuẩn, khi 


А:= 6*Ucln(Tu8o,MauSo) +1; 

Vídu 2 

Chuong trinh sau cho biét giá tri nhó nhát trong ba só nhàp tir bàn phím, 
trong đó có sử dụng hàm tìm số nhỏ nhất trong hai só. 


program Minbaso; 


var a, b, real; 


(Ham tim so nho nhat trong hai so a va b) 
function Min(a,b:real):real; 
begin 
if a<b then Min:-a 


else Min: 


end; 
begin 

write('Nhap vao ba so: '); 

readln(a,b,c); 

writeln('So nho nhat trong ba so la: ', Min(Min(a,b),c)); 


readln 


end. 


102 


a) 


b) 


Bài táp và thuc hành 6 


Mục đích, yêu cầu 

° Ren luyện các thao tác xử lí xâu, kĩ năng tạo hiệu ứng chữ chạy trên 
màn hình; 

° Náng cao kĩnăng viết, sử dụng chương trình con. 


Nội dung 
“Trước hết, hãy fim hiển việc xây dựng hai thủ tne san đây: 


e Thi tục CatDan(sl, s2) nhận đầu vào là xâu 51 gồm không quá 79 kí tự, 
tạo xâu s2 thu được từ xâu sl bằng việc chuyển kí tự đầu tiên của nó 
xuống vị trí cuối cùng. Ví dụ nếu 51 = 'abcd' thì s2 = 'bcda'. 
type str79 = string[79]; 
procedure CatDan(sl: str79; var s2: str79); 

begin 
52:= copy(s1,2,length(s1)-1)*s1[1]; 
end; 

• Thi tuc СапСіна(ѕ) nhận đầu vào là хаи s gồm không quá 79 kí tự, 
bổ sung vào đầu s một số dấu cách để khi dua ra màn hình xâu kí tu s 
ban đầu được căn giữa dòng (80 kí tự). 
procedure CanGiua(var s: str79); 

var i, n: integer; 
begin 

n:= length(s); 

n:- (80-n) div 2; 

fob 1£= 1 te & de sse" "pey 
end; 

Theo dõi cách sử dung hai thủ tục trên, ta có thể viết chương trinh sau đây để 

nhập một xâu kí tự từ bàn phím và đưa xâu đó ra màn hình có dạng dòng chữ 


chạy giữa màn hình văn bản 25x80. 


uses crt; 


type str79 = string[79]; 
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var sl, s2: str79; 
stop: boolean; 

procedure CatDan(sl: str79; var s2: str79); 
begin 


E 


copy (51, 2, length (s1) -1) *s1 [1]; 
end; 

procedure CanGiua(var s: str79); 
var i, n: integer; 
begin 


n:= length(s); 


n:- (80-n) div 2; 
for i:= 1 to n do s:- ' Fases 
end; 
begin 
clrscr; 
write('Nhap xau sl: '); readln(s1); 


CanGiua (s1) ; 
cirscr; 

stop:- false; 
while not(stop) do 


begin 


gotoxy(1,12); (* Chuyen con tro den dau dong 12* 
write(s1); 
delay(500); (* Dung 500 miligiay *) 


CatDan (s1, s2); 


s1:=82; 
stop:=keypressed; (* Nhan mot phim bat kỉ de ket thuc* 
end; 
readin 
end. 


Hãy chay thử chương trình trên với dóng chữ 


' Mung nghin nam Thang Long - Ha Noi!... ' 


c) Hãy viết thủ tục ChuChay(s, dong) nhận đầu vào là xàu s gồm không quá 79 
kí tự và biến nguyên dong, đưa ra xâu s có dạng chữ chạy ở dòng dong. Viết 
và chạy chương trình có sử dụng thủ tục này. 
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a) 


Bài táp và thuc hành 7 


Mục đích, yêu cầu 
e Nâng cao ki náng viết, sử dụng chương trình con; 
è Biết cách viết một chương trình có cấu trúc để giải một bài toán trên 


máy tính. 


Nội dung 
Tim hiểu việc xây dựng các hàm và thủ tục thực hiện tinh độ dài các cạnh, 
chu vi, diện tích, kiểm tra các tính chất đều, cân, vuông của tam giác được 
trình bày dưới đây. 
Giả thiết tam giác được xác định bởi toạ độ của ba đỉnh. Ta sử dụng kiểu 
bản ghi để mô tả một tam giác: 
type Diem = record 
& эур теа; 
епа; 
Tamgiac = record 
A, B, C: Diem; 
end; 

Ta хау dung các thü tuc và hàm: 
• Thi tục nhận dữ liệu vào là biến mó tả tam giác R và dữ liệu ra là độ dài 

của ba canh a, b, c: 

procedure Daicanh(var R: Tamgiac; var a, b, c: real); 
• Hàm tính chu vi của tam giác R: 

function Chuvi(var R: Tamgiac): real; 
e Hàm tính diện tích của tam giác R: 

function Dientich(var R: Tamgiac): real; 
e Thü tuc nhận đầu vào là biến mô tả tam giác R và đầu ra là tính chất của 

tam giác (Deu hay Can hay Vuong): 


procedure Tinhchat (var R: Tamgiac; var рец, Сап, Vuong:boolean); 
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* Thi tuc hiển thi toa độ ba đỉnh tam giác lén màn hinh: 
procedure Hienthi(var R: Tamgiac); 
e Hàm tính khoảng cách giữa hai điểm Р, О: 


function Kh cach(P,Q: Diem): real; 


b) Tìm hiểu chương trình nhập vào toa độ ba dinh một tam giác và sử dung các 
hàm, thủ tuc được xây dung dưới đây dé khảo sát các tính chất của tam giác. 


uses crt; 
const eps = 1.0E-6; 
type 


Diem = record 
x, y: real; 
end; 
Tamgiac = record 
A, B, C: Diem; 
end; 
var T: Tangiac; 
Deu, Can, Vuong: boolean; 
function Kh cach(P, Q: Diem): real; 


begin 


Kh cach: 


загі ( (P. x-Q. x) * (P. x-Q. x) F(P- y-Q. y) * (P-y-Q. y)); 
end; 

procedure Daicanh(var R: Tamgiac; var a, b, c: real); 
begin 


а:= Kh cach(R.B, R.C); 


b:= Kh cach(R.A, R.C); 


с:= Kh cach(R.A, R.B); 
end; 
function ChuVi(var R: Tamgiac): real; 
var a, b, c: real; 
begin 
Daicanh(R, a, b, c); 
ChuVi:= a + b + c; 


end; 
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function Dientich(var R: Tamgiac): real; 
var a, b, c, p: real; 
begin 
Daicanh(R, a, b, c); 
р:= (atbtc)/2; 
Dientich:- sqrt(p* (p-a)* (p-b)* (p-c)) 
end; 
procedure Hienthi(var R: tamgiac); 
begin 


writeln('Toa do 3 dinh cua tam giac la: '); 


writeln(' - Dinh A(',R.A.x:0:3,', ', R.A.y:0:3, ') '); 
wriLeln(* - Dinh B(',R.B.x:0:3,', Ж, R.B.y:0:3, ')'); 
writeln(' - Dinh C(',R.C.x:0:3,', ', R.C.y:0:3, ') '); 


end; 
procedure Tinhchat(var R:Tamgiac;var Deu, Сап, Vuong:boolean); 
var a, b, c: real; 


begin 


Deu:- false; Can:- false; Vuong:- false; 
Daicanh(R, a, b, c); 
if (abs(a-b)<eps) and (abs(a-c)«eps) then 
Deu:- true 
else 
if (abs(a-b)<eps) or (abs(a-c)«eps) or (abs(b-c)«eps) 
then Can:- true; 
if (abs(a*atb*b-c*c)<eps) or (abs(a*atc*c-b*b)<eps) 
or (abs(b^b*c^c-a^a)«eps) then vuong:- true; 
end; 
begin 


writeln('Nhap tam giac: '); 


write('Toa do dinh A: '); readln|T.A.x, T.A.y); 
write('Toa do dinh B: '); readln(T.B.x, T.B.y); 
write('Toa do dinh C: '); readln(T.C.x, T.C.y); 
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writeln('= 


Hienthi(T); 

writeln('Dien tich: ',Dientich(T):9:3); 
writeln('Chu vi: ',Chuvi(T):9:3); 
Tinhchat(T, Deu, Can, Vuong); 
writeln('Tam giac co tinh chat: '); 


if Deu then writeln(' la tam giac deu!) 


else if Can then writeln(' la tam giac can'); 


if Vuong then writeln(' la tam giac vuong'); 


readln; 


end. 
e) Viết chương trình sử dụng các hàm và thủ tục xây dựng ở trên để giải 
bài toán: 
Cho tệp dữ liệu TAMGIAC.DAT có cấu trúc như sau: 
• Dòng đầu tiên chứa số №; 
• N dòng tiếp theo, mỗi dòng chứa sáu số thuc x, ул, Xas y. xạ. ye là toa độ 


ba đỉnh A(x,. ya), BG, ул), С(х,., ye) của tam giác ABC. 


Hãy nhập dữ liệu từ tệp đã cho và trong số N tam giác đó, đưa ra tệp 
TAMGIAC.OUT gồm ba dòng: 

* Dòng đầu tiên là số lượng tam giác đều; 

e Dòng thứ hai là số lượng tam giác cân (nhưng không là đều); 


e Dòng thứ ba là số lượng tam giác vuông. 
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Bai doc thém 3 
AI LÀ LẬP TRÌNH VIÊN ĐẦU TIÊN? 


Đó là một phụ nữ, bà Ada Augusta Byron Lovelace, 
con gái của nhà thơ nổi tiếng thời đó Lord Byron. Ada là 
một trong những nhân vật ấn tượng nhất trong lịch sử 
Tin học. Bà sinh ngày 10/12/1815 và là người cùng thời 
với Charles Babbage, người đầu tiên đưa ra đề án thiết 
kế chiếc máy tính điều khiển theo chương trình có tên là 
Analytical Engine (máy phân tích). 

Từ nhà, bà đã nổi tiếng là mật người thông minh, 
có khả năng đặc biệt về toán học. 

Ngay từ khi bán thiết kế máy phân tích còn ở trên 
giấy, Ada đã đề xuất với Babbage một kế hoạch chỉ tiết 
để máy phân tích tính các số Bernoulli. Ngày nay người 
ta coi kế hoạch này là chương trình máy tính đầu tiên và 
bà được gọi là lập trinh viên đầu tiên. 


Ada Augusta Byron Lovelace 
(1815 — 1852) 


Các ghi chép dugc cóng bó cüa Ada cho tói nay vàn dàc biét có y nghia dói vói các 
lập trinh viên. Giáo sư J. Von Neumann đã viết rằng các quan sát của Ada "chứng tó bà 
đã hiểu được các nguyên tắc lập trình máy tính trước thời đại của mình hàng thế kỉ". 

Như một nhà toán học, Ada đánh giá cao khả năng tự động hoá các công việc tính 
toán nặng nhọc. Nhưng bà quan tâm hơn đến các nguyên tắc của việc lập trình các 
thiết bị đó. Ngay khi máy phân tích còn chưa được xây dựng, Ada đã thí nghiệm viết 
những dãy lệnh. Bà nhận ra giá trị của một vài thủ thuật đặc biệt trong nghệ thuật mới 
này và điều thú vị là những thủ thuật này hiện giờ vẫn còn là cơ bản đối với các ngôn 
ngữ lập trình hiện đại, đó chính là chương trình con, vòng lặp và các phép chuyển 
điều khiển. 

Thay cho việc viết các dãy lệnh lặp đi lặp lại nhiều lần, ta có thể viết chúng dưới 
dang các chương trình con để dùng nhiều lần. Các chương trình con ngày nay là 
thành phần không thể thiếu được của mọi ngôn ngữ lập trình. 

Máy phân tích và các máy tính số thực hiện rất tốt các tính toán nhiều lần một cách 
nhanh chóng. Thời kì đó, các bìa đục lỗ được sử dụng để đưa dữ liệu và các lệnh vào 
máy. Bằng việc phát minh ra các lệnh thực hiện việc chuyển thiết bị đọc bìa về một bìa 
xác định trước nó, sao cho dãy các lệnh có thể được thực hiện một số lần nhất định, 
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Ada đã phát minh ra vòng lặp - một trong những cấu trúc điều khiển quan trọng trong 
các ngôn ngữ lập trình. 

Khả năng lôgic của Ada đã phát huy với phép chuyển điều khiển có điều kiện. 
Bà nghĩ ra một loại lệnh để thao tác với thiết bị đọc bìa, nhưng thay cho việc quay lại và 
lặp lại dãy bìa, lệnh này cho phép thiết bị đọc bìa chuyển tới một bìa khác tại bất kì vị trí 
nào trong dãy, NẾU một điều kiện nào đó được thoả mãn. Việc thêm chữ NẾU đó vào 
danh sách các lệnh số học thuần tuý trước đây có nghĩa là chương trình có thể làm 
nhiều hơn là tính toán đơn thuần. Ó dạng thô sơ nhưng về tiềm năng là rất có ý nghĩa, 
máy phân tích có thể thực hiện các quyết định. 

Ada mất năm 1852, khi mới qua tuổi 36. Nếu như bà không qua đời sớm như vậy, 
chắc chắn khoa học lập trình của thế kỉ XIX đã có thể tiến nhanh hơn nhiều. 

Để tưởng nhớ công lao của Ada, một ngôn ngữ lập trình do Bộ Quốc phòng Mĩ tạo 
ra năm 1979 đã được mang tên bà 


51 9. THU VIÉN CHƯƠNG TRÌNH CON CHUẨN 


Mỗi ngón ngữ lập trình đều có một số lượng phong phú các chương trinh con 
chuẩn trong các thư viện. Dưới đây giới thiệu sơ lược nội dung của một số thư 
viện chương trình con chuẩn của Pascal. 


1. CRT 


Thu viện crt chứa các thủ tục liên quan đến việc quản lí và khai thác màn 
hình, bàn phím của máy tính. Dùng các thủ tục của thư viện này, người lập trình 
có thể điều khiển việc đưa dữ liệu ra màn hình, xây dựng các giao diện màn 
hình-bàn phím, dùng bàn phím điều khiển chương trình hoặc sử dụng âm thanh 
để xây dựng các chương trình mô phỏng. 


Ngoài thủ tục c/rscr đã giới thiệu, dưới đây là một số thủ tục tiện ích khác: 


Thủ tục TextColor(color) đặt màu cho chữ trên màn hình, trong đó color là 
hằng hoặc biến xác định màu và có thể nhận giá trị trong bảng sau: 


110 


Màu Tën hàng Giá tri 
Den black 0 
Xanh trời blue 1 
Xanh lá green 2 
Xanh lơ cyan 3 
Đổ red 4 
Tím magenta 5 
Vàng yellow 14 
Trắng white 15 
Thủ tục TextBackground(color) đạt màu cho nền của màn hinh, trong đó 
color là hằng hoặc biến xác định màu và có thể nhận giá trị trong bảng trên. 


Thi tục GotoXY(x, y) dua con trỏ tới vị trí cột x dòng y của màn hình văn 
bản. Do màn hình văn bản gồm 25 dòng và 80 cột nên phạm vi giá trị của các 
tham số là 1 < x < 80, 1 < y < 25. 


2. GRAPH 

Mặc dù Pascal không phải là ngôn ngữ chuyên về đồ hoạ, nhưng với thư viện 
đồ hoạ người lập trình có thể khai thác khả năng đồ hoạ của máy tính ở những 
mức độ thông dụng. 

Thu viện này chứa các hàm, thủ tục liên quan đến chế độ đồ hoạ của các loại 
màn hình khác nhau và cho phép thực hiện các thao tác đồ hoạ cơ bản như vẽ 
điểm, đường, tô màu,... 

a) Các thiết bị và chương trình hỗ trợ đô hoạ 

Màn hinh có thể làm việc trong hai chế độ: chế độ vàn bản và chế độ đồ hoạ. 
Có thể hình dung màn hình như một bảng các điểm sáng. Hình ảnh đồ hoạ được 
xây dựng từ các điểm sáng. Mỗi điểm sáng là một điểm ảnh (pixel) và điểm ảnh 
là đơn vị cơ sở của màn hình đồ hoạ. 

Bảng mạch điều khiển màn hình là thiết bị đảm bảo tương tác giữa bộ xử lí 
và màn hình để thực hiện các chế độ phân giải và màu sắc. Tên gọi của bảng 
mạch điều khiển màn hình thường trùng với loại màn hình, ví dụ VGA, SVGA.... 
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Trong Turbo Pascal, thu vién graph cung cáp các chuong trinh diéu khién 
tuong úng vói các loai bàng mach dó hoa. Các chuong trinh diéu khién này nàm 
trong các tép có phán mó róng là BGI (Borland Graphics Interface). Muón hoat 
động trong chế độ dó hoa, cán phải có tệp BGI thích hợp với màn hình dang 
dùng. Các tệp BGI được Pascal ngầm định để trong thư mục con BGI. Khi khởi 
động đồ hoạ, cần chỉ rõ đường dẫn đến các tệp này. 

Toạ độ trên màn hình đồ hoạ được đánh số từ 0, cột được tính từ trái sang 
phải và dòng được tính từ trên xuống dưới. Độ phân giải màn hình VGA thường 
được đặt là 640x480. 

b) Khởi tạo chế độ đồ hoa 

Một chương trình đồ hoạ bao giờ cũng mở đầu bằng việc khởi tạo chế độ đồ 
hoạ. Các thủ tục, hàm của thư viện graph chỉ hoạt động khi chế độ đồ hoa đã 
được thiết lập. Khi kết thúc làm việc với chế độ đồ hoạ thì cần quay về chế độ 
văn bản. 

"Thủ tuc sau dùng để thiết lập chế độ đồ hoa: 

procedure InitGraph(var driver,mode:integer; path:string); 
trong dó: 

— driver là số hiệu của trình điều khiển BGI; 

— mode là số hiệu của độ phân giải; 

— path là đường dẫn đến các tệp BGI. 

Thông thường, ta nên sử dung cách thiết lập chế độ đồ hoa tự động với biến 
driver được рап giá trị 0 (được định sẵn bằng hằng detect). 

Ví du 

Giá sử màu lành Bun việc là VGA và các tệp BGI đang để ở thư шис 
CTP\BGI, khi đó các lệnh sau sẽ thiết lập đồ hoạ với chế độ VGAHi: 

driver:= 0; 


TnitGraph (driver, mode, 'C: V TPABGI'); 


Sau khi két thác làm viéc vói ché dó dó hoa, dé tró vé ché dó vàn bàn ta goi 
thuc hiện thủ tục: 


CloseGraph; 
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c) 


4) 


e) 


Các thủ tục vē điển, đoạn tháng 
Vẽ điểm và đoạn thẳng là hai thao tác cơ bản của đồ hoa. 
e Trước khi vẽ, ta có thể đặt màu cho nét vẽ bằng thủ tuc: 
procedure SetColor(color: word) ; 
e Vẽ điểm được thực hiện bằng thủ tục: 
procedure PutPixel(x,y: integer; color: word); 
trong dó: 
— x và y là toa độ của điểm; 
— color là màu của điểm. 
• Đoạn thẳng được xác định bởi toa độ của hai điểm đầu, cuối. Dé vẽ đoạn 
thẳng nối hai diu ta sử dụng thủ tục: 
procedure Line(xl, yl, x2, y2: integer); 
trong đó (xl, yl) và (x2, y2) là các toa độ của hai điểm đầu, cuối của 
đoạn thẳng. 
* Vẽ đoạn thẳng nối điểm hiện tại (vị trí con trỏ) với điểm có toa độ (x, y): 
procedure LineTo(x, y: integer); 
e Vẽ đoạn thẳng nối điểm hiện tại với điểm có toa độ bàng toa độ hiện tại 
cộng với gia số (dx, dy): 


procedure LineRel(dx, dy: integer); 


Các thú tuc và hàm lién quan dén vi trí con tró 
• Các hàm xác dinh giá trị lớn nhất có thể của toa độ màn hinh X và Y (để 
biết dó phân giải màn hinh trong chế độ dó hoa dang sử dung): 
function GetMaxX: integer; 


function GetMaxY: integer; 
• Thü tục chuyển con trỏ tới toa dó (x, y): 
procedure MoveTo(x, y: integer); 
Một số thủ tuc vé hình don gián 


e Vẽ đường tròn có tâm tai (x, y), bán kính r: 


procedure Circle(x,y: integer; r: word); 
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* Vẽ cung của elip có tâm tại điểm (x, y) với các bán kính truc Xr, Yr từ góc 
khởi đầu StAngle đến góc kết thúc EndAngle: 
procedure Ellipse(x,y:integer;StAngle,EndAngle,Xr,Yr: word); 
e Vẽ hinh chữ nhật có các cạnh song song với các truc toa độ, (x1, yl) là toa 
độ của đỉnh trái trên còn (x2, y2) là toa độ của đỉnh phải dưới: 


procedure Rectangle(xl,yl,x2,y2: integer); 


3. Mót số thư viện khác 

System: Trong thư viện chuẩn này chứa các hàm sơ cấp và các thủ tục vào/ra 
mà các chương trình đều dùng tới. 

Dos: Thư viện này chứa các thủ tục cho phép thực hiện trực tiếp các lệnh như 
tao thư mục, thiết lap giờ hệ thống... 


Printer: Thư viện này cung cấp các thủ tục làm việc với máy in. 


4. Sử dụng thu viện 

Muốn sử dụng các thủ tục và hàm chuẩn của một (một số) thư viện nào đó 
(trừ system) phải dùng lệnh khai báo: 

uses unitl, unit2,..., unitN; 

trong đó, uses là từ khoá, unitl, unit2, .... unitN là tên các thư viện (được viết 
cách nhau bởi dấu phẩy). 

Khai báo này phải là lệnh đầu tiên trong phán khai báo (nghĩa là nó chỉ viết 
sau khai báo tên chương trình). 

Ví dụ 


Để sử dụng các hàm và thủ tục chuẩn trong các thư viện crt, dos, graph, ta 
cần khai báo: 


uses crt, dos, graph; 
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Bài táp và thuc hành 8 


1. Mục đích, yêu cầu 


Giới thiệu một số chương trình để học sinh thấy được khả năng dó hoạ của 
Pascal. 


2. Nội dung 


a) Chương trình sau đây vẽ các đường gấp khúc "ngẫu nhiên" nhờ thủ tục LineTo, 
mỗi đoạn có một màu ngẫu nhiên. Vị trí bắt đầu vẽ là tâm của màn hình. Kết 
thúc việc vẽ bằng cách nhấn một phím bất kì. Chạy thử chương trình và quan 
sát kết quả trên màn hình. 


uses crt,graph; 
var stop: boolean; 
function DetectInit(path: string): integer; 
var drive, mode: integer; 
begin 
drive:= 0; 
InitGraph(drive, mode, path); 
DetectTnit:= GraphResult; 
end; 
begin 
if DetectInit('C:\TP\BGT') <> 0 then 
begin 
write('Loi do hoa! Nhan phim Enter de ket thuc...'); 
readln; 
end 
else 
begin 
Randomize; 
MoveTo(Getmaxx div 2,Getmaxy div 2); 
stop:-false; 
while not(stop) do 
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begin 
SetColor(Random(GetMaxColor)); 
(Thiet lap mau mot cach ngau nhien} 
LineTo (Random (Getmaxx) , Random (Getmaxy ) ); 
Delay(200); {Tam dung} 
stop:= Keypressed; 

end; 
end; 
CloseGraph 
end. 


b) Chương trình dưới đây minh hoa việc sử dụng các thủ tục vẽ hinh đơn giản. 
Hãy chạy chương trình rồi thay đổi một số tham số như màu vẽ, toạ độ và 
quan sát kết quả trên màn hình. 


program GraphDemo; 
uses graph; 
var 
gd, gm: integer; 
xm, ym, xmaxD4, ymaxD4: word; 
begin 
gd:- detect; 
Initgraph(gd, gm, 'C: V TPABGT'); 


xm:-GetmaxX div 2; ym:- GetmaxY div 2; 
(Ve hinh chu nhat voi net ve mau vang) 
SetColor (Yellow); 
Rectangle (10, 10, xm, ym) ; 
readln; 

(Ve duong tron mau xanh la cay, tam(450;100) ban kinh 50) 
SetColor (LightGreen) ; 
Circle(450, 100, 50); 
readln; 
{Ve ellip mau do } 
SetColor (Red); 
Ellipse(100, 200, 0, 360, 50,120); 
readln; 
CloseGraph 
end. 
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v 


AUN 


TÓM TÁT 


Chuong trinh con đóng vai trò quan trong trong lâp trinh, đăc biêt 
trong lâp trinh có cáu trúc. 

Dùng chương trinh con sẽ thuận lợi cho việc tổ chức, viết, kiểm tra 
chương trình và sử dụng lại. 

Chương trình con có phần đầu, phần khai báo và phần thân. 

Chương trình con có thể có tham số hinh thức khi khai báo và được 
thay bằng tham số thực sự khi gọi. Các tham số hình thức và thực sự 
phải tương ứng về thứ tự và kiểu di liệu. 

Chương trình con được goi bằng tên của nó. 


Biến được khai báo trong chương trình con là bién cuc bộ. 


Thư viện cung cấp những chương trình con chuẩn mở rộng khả năng 
ứng dụng. 


CÂU HỎI VÀ BÀI TẬP 


. Нау nêu su giống nhau và khác nhau giữa thú tuc và hàm. 
. Chương trinh con có thể không có tham số được không? Cho ví du. 
. Нау cho ví dụ chương trinh con có nhiều hơn một kết quả ra. 


. Viết chương trình con (hàm, thủ tục) tính bội số chung nhỏ nhốt của 


hai số nguyên duong a, b. Нау cho biết trong trường hop này viết 
chương trình con dưới dang hàm hoy thủ tục là hudan tiện hơn 2 
Vi sao? 
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Bài doc thém 4 


ÁM THANH 


Ta sẽ tim hiểu thêm một số yếu tó về âm thanh như mô phóng âm thanh và mô 
phóng nốt nhạc trong Pascal. 


Khi được bật, loa máy tính sẽ phát ra âm thanh ở một tần số nào đó cho đến khi 
được tắt. Để khai thác khả năng này, thư viện crt có: 
~ Thủ tục phát ra một âm thanh có tần số (cao độ) là h (tính theo đơn vị héc - Hz): 
procedure Sound(h: word); 
~ Thủ tục tắt âm thanh đang được phátra loa: 


procedure NoSound; 


Mỗi khi gọi thủ tục Sound để phát một âm thanh nào đó, âm thanh này sẽ được kéo 
dài cho đến khi gặp lời gọi NoSound. Để xác định khoảng thời gian kéo dài (trường độ), 
ta dùng thủ tục Delay với tham trị t. Thủ tục sau phát một âm thanh với cao độ h và 
trường độ í: 


procedure CreatSound(h,t: word); 
begin 
Sound(h); Delay(t); NoSound; 


end; 


a) Mó phỏng ám thanh 


Có thể mô phóng một âm thanh nhờ thủ tuc CreatSound(h,t). Vấn đề còn lại là tim 
các giá trị thích hợp của h và í. 


Ví dụ 
Chương trình dưới đây tạo tiếng lộc cộc của vó ngựa phi: 
program DemoSound; 
uses crt; 
procedure CreatSound(h, t: word); 
begin 
Sound(h); Delay(t); NoSound; 


end; 
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procedure Clockoc(h: word); 
begin 
CreatSound(h, 20); 
Delay(50); 
CreatSound(h, 20); 
Delay(100); 
CreatSound(h, 40); 
end; 

begin 

repeat 
Clockoc(500); 
Delay(200); 

until xeyFressed; 

end. 

Việc khai thác âm thanh thường được sử dung để xây dựng các chương trinh trò 
chơi hoặc mô phỏng. Vì thế, nếu thường xuyên phải phát triển những ứng dụng loại này 
thì nên tổ chức một thư viện chứa một số âm thanh mẫu như tiếng các loại động cơ, 
tiếng còi, tiếng nổ, tiếng va cham,... để tiện dùng. 


b) Mô phỏng nốt nhạc 
Một trường hợp riêng của việc khai thác âm thanh là mô phóng các nốt nhạc. Một 
nốt nhạc cao độ h, trường độ t sẽ được thực hiện bởi lệnh gọi: 
CreatSound (h, t); 


Theo âm luật, từ một quãng 8 đến quãng 8 kế tiếp, thừa số nhân của cao độ là 2. 
Trong một quãng 8, có 12 khoảng nửa cung, vì thế thừa số nhân giữa hai khoảng này là 
căn bậc 12 của 2. 


Vì vậy chỉ cần biết cao độ của một nốt làm gốc, ta có thể tính cao độ của các nốt 


khác. Chẳng hạn, xuất phát từ cao độ của nốt đô trung là 512, cao độ của các nốt trong 
quãng 8 trung lần lượt là (sau khi đã làm tròn): 


Nốt nhạc | Cao độ Nốt nhạc | Cao độ 
đô tung | 512 fathăng | 724 
đô thăng | 542 son 767 
rê S75 son thăng | 813 
rêthăng | 609 la 861 
mi 645 la tháng 912 
fa 683 si 967 
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Về trường độ, lấy nốt móc đơn làm đơn vị là 150, ta tính được các trường độ khác: 


Nốt nhạc 
nốt đen 
nốt trắng 
nốt trắng chấm 
nốt tròn 


Trường độ 
300 

600 

900 

1200 


Ví dụ 
Chương trình dưới đây thể hiện một bản nhạc ngắn của đồng hồ, tất cả các nốt đều 
ở quãng 8 trung: 
program DemoMusic; 
uses crt; 
procedure CreatSound(h, t: word); 
begin 
Sound(h); Delay(t); NoSound; 
end; 
begin 
CreatSound(967, 
CreatSound(767, 
CreatSound(861, 
CreatSound(575, 
Delay(60); 
CreatSound(575, 300); 
CreatSound(861, 300); (la 
CreatSound(967, 300); (si 
CreatSound(767, 900); 
Delay(60); 
CreatSound(967, 
CreatSound(767, 
CreatSound(861, 
CreatSound(575, 
Delay(60); 
CreatSound(575, 
CreatSound(861, 


300); 
300); 
300); 
900); 


(si den) 
(son den) 

(1a den) 

{re trang cham) 
(re den) 
den) 
den) 


{son trang cham) 


300); 
300); 
300); 
900); 


(si den) 
(son den) 
(la den) 


(re trang cham) 


300); 
300); 
300]; 
900); 


(re 
(la 


{si 


den) 
den) 
den) 


(son trang cham) 


CreatSound(967, 
CreatSound(767, 


end. 
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PHULUCA 


1. Một số phép toán thường dùng 


EE PE SE sd r 
Cóng + e + 
Trừ - = а 
Nhàn x * * | 
Chia 7 7 7 Só hoc 
Chia nguyén div / 
Lấy phán dư mod mod % 
Nhỏ hơn < < < 
Nhỏ hơn hoặc bằng < <= <= 
Lớn hơn > > > 
5 Quan hệ 
Lớn hơn hoặc bằng > >= >= 
Báng = = == 
Khác + <> fe 
Phú dinh © not D 
Hoặc (tuyển) v or II Lógic 
Và (hëi) A and && 


2. Giá tri phép toán lógic 
Giả thiết các biến A và B là những bién lógic. Để thuận tiện, ta së kí hiệu giá 
true là 1 và false là 0. Khi đó, kết quả của các phép toán lôgic not A, A and B và A or B 
được xác định trong các bàng sau: 


A 0 |1 A о |0 |1 |1 
not A A о в о 1. о |1 
A and B |O |O |O |1 
A or B о |1 |1 |1 
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PHU LUC B 


Sau đây là các phu lục liên quan đến việc sử dung Pascal. 


1. Môi trường Turbo Pascal 


Bảng chọn (menu) của Turbo Pascal (TP) được kích hoạt bằng cách nhấn phím F10. 


Khi gõ các phím mũi tên — hay < ta có thể chuyển tới các mục khác nhau của bảng 
chọn. Khi nhấn phím Enter, bàng chọn sẽ được kích hoạt, giới thiệu các mục công việc. 


Các 


bång chọn thường được dùng là File (Tép), Run (Thực hiện), Debug (Gà rối) và 


Options (Tuỳ chọn). 


a) Bảng chọn File 
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Khi kích hoạt bảng chon này ta có màn hinh như hình P.1: 


Edit Search Run Compil 


Printer setup... 
shell 


Dos 
Exit 


€ windau 
Hinh P.1. Báng chon File 

Các lệnh trong bảng chon này gồm: 

* New - Mở cửa sổ mới để soạn thảo chương trinh. 

* Opern - Mở lẹp đã có пеп đĩa. Có thể thực hiện lệnh này bằng cách nhấn phím ЕЗ. 
Trên màn hình sẽ xuất hiện cửa sổ để xác định tên tệp cần mở. 

* Save - Lưu tệp đang soạn thảo. Nếu đây là tệp chưa đặt tên thi TP sẽ hỏi tên tệp 
để lưu trữ. Có thể thực hiện lệnh này bằng cách nhấn phím F2. 

* Save as- Lưu tệp đang soạn thảo với tên mới. 

* Save all- Lưu tất cả các tệp đang mở. 

® Change dir - Thay đổi thư mục làm việc. 

* DOS shell - Chuyển sang màn hinh DOS, ở đó có thé thực hiện các lệnh của 
MS-DOS. Để quay trở về màn hình TP cần gõ lệnh EXIT. 


ө Exit- Thoát khỏi TP. Có thể thoát khói TP bàng cách nhấn tổ hợp phím АХ. 
Trong mót só truëng hop cu thé, có thé có nhüng muc chua dugc phép chon. Nhüng 
mục này sé hiển thị dưới dang mờ hơn các muc có thé chon. 
b) Bảng chọn Run 


Khi kích hoạt bàng chọn này ta có màn hình tương tự hình P.2. Bảng chọn này dùng 
để xác định chế độ thực hiện chương trình. 


Debug Tools. 


Run GtrlsF9 
Step over F8 
Trace into F7 
Go to cursor F4 


ogran reset Ctrl+F2 


line parameters to 


Hinh P.2. Báng chon Run 

Các lệnh có thể chon là: 

• Run - Thực hiện chương trinh, nếu tước đó chương trình đã được dịch, bằng cách 
nhấn tổ hợp phím Alt+F9 và chương trình không có lỗi. Nếu chương trình chưa 
được dich, TP sẽ dich và thực hiện chương trình khi chương trình ngi không có 
lỗi cú pháp. Nếu chương trình nguồn có lỗi cú pháp, TP sẽ thông báo lỗi và con trổ 
màn hình sẽ nhấp nháy ở dòng có lỗi. Có thể nhấn tổ hợp phím Ctrl+F9 để truy cập 
nhanh lệnh này. 

* Step over - Thực hiện từng dòng lệnh trên màn hình soạn thảo. Các lời gọi chương 
trình con được xem như nột lệnh. Cần lưu ý là một dòng lệnh trên màn hình soạn 
thảo có thể chứa nhiều câu lệnh của TP. Có thể chọn nhanh lệnh này bằng cách 
nhấn phím F8. 

* Trace into - Thực hiện từng dòng lệnh trên màn hình soạn thảo, kể cả các dòng 
lệnh ở chương trình con. Có thể chọn nhanh lệnh này bằng cách nhấn phím F7. 

* Go to cursor - Thực hiện chương trình cho đến dòng có con trổ màn hình. Có thể 
chọn nhanh lệnh này bằng cách nhấn phím F4. 


* Program reset - Xoá các trang thái của TP đối với chương trình dang thực hiện để 
chuẩn bị dịch và thực hiện lại từ đầu. Có thể chọn nhanh lệnh này bằng cách nhấn 
tổ hợp phím Ctrl+F2. 
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c) Bảng chọn Debug 


Báng chọn này dùng dé hiệu chỉnh chương trình. Khi kích hoạt bảng chon này ta có 
màn hình tương tự hình P.3. 


File Edit Search Run Compile MEISI Tools Options Window Не 


Call stack 
Register 
Watch 
Output 

User screen 


Ctrl+F4 


Ctrl+F? 
Add breakpoin: 


akpoints, view and 


Hinh P.3. Báng chon Debug 


Các lệnh thường dùng là: 

e Evaluate/modify - Dùng dé tính giá trị biểu thức. TP sẽ mở cửa sổ để gõ biểu thức 
cần tính. Sau khi gõ biểu thức, nhấn phím Enter, TP sẽ tính và cho giá trị ở cửa sổ 
giá trị (h. P.4). 


| < tmefeeszo — 2815 


File Edit Search Run Compile Debug Tools Options Window Help 


D) ter expression to evaluate 


Hinh P.4. Сйа só tính giá tri biéu thúc 
* Add watch - Dùng để mở cửa sổ theo dõi giá trị biến trong quá trình thực hiện 
chương trình. Có thé chọn nhanh lệnh này bằng cách nhấn tổ hợp phím Ctrl+F7. 
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d) Bángchon Options 
Bang chon này được dùng để đặt các tuỳ chọn cho môi trường lập trình. Mục thường 
dùng hơn cả là Compiler (h. P.5). 


lelp | Set default compiler directives and conditional defines 


Hinh P.5. Báng chon Options 


Khi chon muc Compiler, màn hinh tuong tu nhu hinh P.6 xuát hién. Ta có thé xác làp 
các tuỳ chọn cho chương trinh dich. Các tuỳ chọn này cũng có thé xác lập ngay trong 
chương trình nguồn bằng câu lệnh của TP. Các tuỳ chọn được chia thành nhiều nhóm. 
Việc chuyển từ nhóm này sang nhóm khác được thực hiện bằng cách nhấn phím Tab. 
Việc chọn hay không chọn một tuỳ chọn được thực hiện bằng cách nhấn phím cách. 
Những tuỳ chọn có hiệu lực được đánh dấu X (h. P.6). 


BSE 


File Fdit Search Run Conpile Debug Tools Options Window Help 


[ 1 Force far calls a 
[3 2 
t: 


Run: 


R 
I 


Conditio al defines 
BL 


Force all procedures and functions to use far call model 


| | 
Ë 
| 
Ệ Ë 
E 
Н E 
Ë : 

E 


Hinh P.6. Các tuy chọn cho chương trinh dịch 
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ө) Chuyển cửa sổ màn hinh soạn thảo 
TP cho phép mở nhiều cửa sổ soạn thảo đồng thời. Để chuyển tới cửa sổ tiếp theo, 
nhấn phím F6. Để quay về cửa sổ trước đó, nhấn tổ hợp phím Shift+F6. 


f) Trợgiúp 

Để TP có thể đưa ra các trợ giúp, cần có tệp turbo.tph. Có thể xem trợ giúp nhờ 
bång chon Help hoặc nhấn phím F1. TP sẽ hiển thị các mục cho phép ta chọn tiếp vấn 
đề quan tâm. 

Nếu cần hiểu một từ khoá hay tên chuẩn kĩ hơn, ta có thể để con tỏ màn hình tại vi 
trí trong hoặc cuối tên đó rồi nhấn tổ hợp phím Ctrl+F1. 

Có thể tra cứu bằng cách nhấn tổ hợp phím Shift+F1 rồi lần lượt gõ tiếp các kí tự của 
đối tượng cần tìm hiểu cho đến khi TP tìm được đối tượng đó. 

Các phím phục vụ soạn thảo có thể tra cứu bằng cách nhấn phím F1 vào trợ giúp. 
Cuối nội dung thông tin trợ giúp này sẽ có danh sách các mục có thể tra cứu về cách 
soạn thảo (h. P.7). 


Choose one of these for nore information: 


Fi Help on help ñit+Fi Previous topic Shift*Fi Help index Esc Close help 


Hinh P.7. Các muc trợ giúp soạn tháo 
Nhấn phím Esc để thoát khỏi trg giúp. 
g) Các hệ thống phuc vụ lập trình trên Pascal 


Trước hết phải kể đến các bộ dịch Pascal của hãng Borland dưới tên gọi Turbo 
Pascal trong những thập niên cuối thế kỉ XX. 


• Turbo Pascal v1.0 là bộ dịch đầu tiên của hàng Borland. Ngày phát hành: 
20/11/1983. 
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e Turbo Pascal v5.5 là bước tiến lớn trong phát triển các bộ dich Pascal của hãng 
Borland. Bắt đầu từ phiên bản này trong Pascal xuất hiện lập trình hướng đối 
tượng. Ngày phát hành: 02/05/1989. 


• Borland Pascal with Objects v7.0 (Borland Pascal v7.0) là bộ dịch Pascal nổi 
tiếng trong những năm cuối của thế kỉ XX và cũng là phiên bản cuối cùng của 
Turbo Pascal. Ngày phát hành: 09/03/1993. 


Các bộ dịch trên có thể tải về từ các trang web: 
http:/dn.codegear.com/museum hoặc http://pascal.sources.ru/museum/index.htm 


Có thể nói các bộ dịch Pascal cho MS-DOS mà đại diện cuối cùng và nổi bật nhất là 
Borland Pascal v7.0 có thể đáp ứng những yêu cầu cơ bản về giảng dạy lập trình có cấu 
trúc trên ngôn ngữ lập trình bậc cao. Với sự phát triển mạnh mẽ của hệ điều hành và 
phần cứng máy tính, công cụ lập trinh phái được cải tiến không ngừng để tương thích với 
hệ điều hành và tận dụng khả năng của phần cứng. Chỉ hỗ trợ hệ điều hành DOS và 
dành cho Windows một phần khiêm tốn, Turbo Pascal và Borland Pascal đã không đáp 
ứng được yêu cầu của người lập trình. Một trong những han chế cơ bản của các bộ dich 
này là chúng là các bộ dịch 16 bit. Hạn chế 64KB cho tất cả các biến và dữ liệu thực sự 
đã là cán trổ lớn cho người lập trinh. 


Mặc dù Borland không còn quan tâm đến các bộ dịch Turbo Pascal (họ đã xếp 
chúng vào bảo tàng và chuyển sang phát triển các bộ dịch mới), nhưng những người yêu 
thích ngôn ngữ này vẫn tiếp tục phát triển Pascal. Dưới đây ta nêu vài bộ dịch 32 bit của 
Pascal. 

e GPC (GNU Pascal Compiler) - bộ dịch Pascal 32/64-bit mã nguồn mở, hoàn 

toàn tương thích với Borland Pascal 7.0, trên nhiều hệ điều hành như Linux 
(Intel, Alpha), FreeBSD, NetBSD, OpenBSD, DOS 32 bits, MS-Windows 9x/NT, 
OS/2, MIPS-SGHRIX, Alpha-DEC-OSF, Sparc-Sun-Solaris, HP/UX. Thông tin 
chi tiét vë bó dich này có thé xem trén trang 
http.//www.gnu-pascal.de/gpc/h-about.html 
e TMT Pascal - bộ dich 32 bit của Pascal đối với 00532, Win32 và OS/2. Phiên 
bán mái nhát là TMT Pascal 5.0 phát hành nám 2003 (xem thóng tin trén trang 
web http://www.tmt.com). Phiên Бап 3.90 được phép sử dụng miễn phí, có thể tải 
về từ địa chỉ http://pascal.sources.ru/tmt/download.htm. 

e FPC (Free Pascal) có khả năng biên dịch các chương trinh 32 bit, tức là chương 

trình có khả năng quản Ií và xử lí dữ liệu được định vị trên 32 bit địa chỉ. Chuẩn 
lập trình của Free Pascal tương thích hoàn toàn với Turbo Pascal và Borland 
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Pascal 7.0. Điểm nổi bật nhất của Free Pascal là có khả năng tao ra các chương 
trình chạy trên nhiều hệ điều hành khác nhau như DOS, Linux, Win32, OS/2, 
BeOS, FreeBSD/ELF, AmigaOS, QNX và Solaris. Free Pascal là phần mềm mã 
nguồn mở. Đây là bộ dịch Pascal được thường xuyên nâng cấp nhất hiện nay. 
Phiên bản chạy ổn định là 2.0.4 (háng 8 năm 2006) có thể tải về từ địa chỉ 
http://www.freepascal.org. 


2. Một số tên dành riêng 


absolute 
and 

array 
begin 

case 

const 
constructor 


destructor 


else 


end 


external 
file 

for 
forward 
function 
goto 

Xf 
implementation 
in 

inline 
interface 
interrupt 


label 


or 
packed 
procedure 
program 
record 
repeat 
set 


shl 


shr 
string 
then 
to 
type 
unit 
until 
uses 
var 
virtual 
while 
with 


xor 
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3. Một số kiểu dữ liệu chuẩn 


Kiểu Loại giá trị tưng Phạm vi giá trị 

byte Nguyên 1 từ 0 đến 255 
integer Nguyên 2 từ -32768 đến 32767 

word Nguyên 2 từ 0 đến 65535 
longint Nguyén 4 tir -2147483648 đến 2147483647 

mn | me | e | 7 

char Kí tự 1 256 kí tự trong bộ mã ASCII 
boolean Lôgic 1 true, false 


4. Một số thủ tục và hàm chuẩn 


a) Nhóm thủ tục và hàm chuẩn đối với các biến kiểu ng uyên 


° Nhóm thủ tục chuẩn 


Thủ tục Chức năng 

Inc (х) Tăng giá trị của biến x một đơn vị. 

Dec (x) Giám giá tri cüa bién x mót don vi. 

Inc(x,y) | Đặt cho bién x giá trị mới bằng giá tri cũ cộng với giá trị của bién y. 
Dec(x,y) | Đặt cho biến x giá tị mới bằng giá trị cũ trừ đi giá trị của biến y. 


• Nhóm hàm chuẩn 


Hàm Chức năng 

Sqr (x) Cho giá tri báng binh phuong cüa x. 

Pred (х) Cho giá trị bàng x - 1. 

Succ (x) Cho giá trị bằng x + 1. 

Random (М) | Hàm có biểu thức N kiểu word và cho giá tri là một số nguyên ngẫu 


nhiên trong phạm vi từ 0 đến N - 1. Khi dùng hàm này ta phải gọi thủ 


tục randomize. 
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b) Nhóm hàm chuẩn đối với các bién kiểu thực 


Hàm Chức năng 
Abs (x) Cho giá trị bằng trị tuyệt đối của giá trị biến x hoặc số thực x. 
¡4 #¡ là e£ 2 A 2 тл д Ằ tá 
Azeman: (x) Cho giá tri là só do cüa cung thuóc khoáng Cy có tang bằng giá 
trị của biến x hay số thực x. 
Exp (x) Cho giá trị bàng luy thừa cơ só e của giá tri bién x hoặc số thực x. 
Ln (x) Cho giá trị bàng lógarit cơ só e của giá tri bién x hoặc số thuc x. 
Sin(x) Cho giá tri bàng sinx. 
Cos (x) Cho giá tri bàng cosinx. 
Pi Cho giá trị của só л (3,1415...) 
Cho giá tri báng phán nguyén nhung có kiéu só thuc cüa giá tri bién x 
Int(x) hoặc số thuc x (phán nguyên của số thuc x bằng số nguyên lớn nhất 
không vượt quá x). 
Sqr (x) Cho giá trị bàng binh phương của giá trị bién x hoặc số thuc x. 
Cho giá trị bằng căn bậc hai của giá trị không âm của bién x hoặc số 
Sqrt (x) uü A 
thuc khóng am x. 
Randomize | Thủ tục khói động sinh số ngẫu nhiên. 
Cho một số thực ngẫu nhiên trong khoảng (0, 1). Khi dùng hàm này ta 
Random M CQ 
phái goi thü tuc randomize. 
Cho giá trị bằng số nguyên gần số thuc x nhất nhung có kiểu là kiểu số 
Round(x) | nguyên. Trong trường hợp phần thập phân của x lớn hơn hoặc bằng 0,5 
thì hàm cho giá trị làm tròn lên. 
Trunc(x) | Cho giá tri bằng phần nguyên của x. 


c) Hàm chuẩn trả về giá trị lógic 


Hàm 


Chức năng 


Odd (x) 


Với biểu thức số nguyên x, cho giá tri true nếu x lẻ và cho giá trị false 
nếu x chán. 
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d) Nhóm thú tuc và hàm chuán dói vói bién kiéu kí tu 


° Nhóm thú tuc chuán 


Thú tuc Chúc папа 


Inc (x) Cho giá trị của biến x là kí tự đứng ngay sau kí tự ứng với giá trị hiện thời 
của x trong bộ mã ASCII. 


Dec (x) Cho giá tri của bién x là kí tự đứng ngay trước kí tự ứng với giá trị hiện 
thời của x trong bộ mã ASCII. 


• Nhóm hàm chuẩn 


Hàm Chức năng 


Chr (х) Cho giá tri là kí tu có mà ASCII thàp phàn bàng (giá tri cüa biéu thúc) 
x có giá trị nguyên từ 0 đến 255. 


Ord(ch) Cho giá trị mã ASCII thập phân của kí tự ch. 


Pred (ch) Cho kí tự đứng ngay trước kí tự ch trong bộ mã ASCII. 


Succ (ch) Cho kí tu d(mg ngay sau kí tu ch trong bó mà ASCII. 


UpCase (ch) | Nếu ch là chữ cái tiếng Anh, hàm cho giá trị bằng chữ cái hoa tương 
ứng, ngược lại, hàm cho giá trị bằng giá trị của ch. 


5. Câu lệnh rẽ nhánh và lặp 
a) Câu lệnh case-of 

Xét bài toán: Lập chương trình nhập từ bàn phím tháng và năm rồi tính và đưa ra 
màn hình số ngày của tháng. 

Câu lệnh if-then giải quyết việc ré nhánh tuỳ theo một trong hai khá năng. Bài toán 
trên liên quan tới việc chọn lựa một trong nhiều khả năng (rẽ nhiều nhánh). Khi đó, nếu 
dùng câu lệnh ifíhen giải quyết sẽ làm chương trình rườm rà. Câu lệnh chọn case-of 
trong TP cho phép rẽ nhiều nhánh một cách thuận lợi. 

Câu lệnh case-of có dạng: 

case <biểu thức nguyên hoặc kí tự > o£ 
«danh sách 1>: <câu lệnh 1>; 
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tron 


b) 


«danh sách 2»: «càu lénh 2»; 


«danh sách N»: «cáu lénh N» 
[eise «cáu lénh N + 1»] 
end; 
g dó: 


e Danh sách i(i = 1, 2,..., N) là một hoặc nhiều giá trị của biểu thức nêu sau case, 
nếu có nhiều giá trị thi các giá trị viết cách nhau bởi dấu phẩy. 

e Khi thực hiện, biểu thức sau từ khoá case sẽ được tính, giá trị nhận được sẽ lần 
lượt được kiểm tra xem nằm trong danh sách nào. Câu lệnh tương ứng với danh 
sách đầu tiên tìm thấy sẽ được thực hiện. Tiếp theo, thực hiện câu lệnh sau câu 
lệnh case-of. 

e Nếu giá trị tính được không xuất hiện ở bất kì danh sách nào thì câu lệnh N ! 1 
sau else (nếu có) sẽ được thực hiện. 

Chương trình để giải bài toán vừa nêu như sau: 
program Vi du case; 
uses crt; 
var T, N, SN: integer; 
begin 
еа ела 
write ('Cho biet thang va nam: '); 
readln(T,N); 
case T of 
4,6,9,11: SN:= 30; 
2: if (N mod 400-0) or ((N mod 100<>0) and (N mod 4-0)) 
then SN:- 29 else SN:- 28 
else SN:- 31 


end; 
writeln('Thang ', T,' nam ', N, ' co ', SN,' ngay.'); 
readln 

ena. 

Câu lệnh lặp repeat-until 


Câu lệnh này dùng để tổ chức lặp với số lần lặp không biết trước. Khác với câu lệnh 


while-do, điều kiện kết thúc lặp trong câu lệnh repeat-until được kiểm tra sau và có dang: 


tron 
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repeat 
«dày câu lệnh>; 
until «diéu Кёп>; 


g đó điều kiện là biểu thức quan hệ hoặc lógic. 


Viéc thuc hién lënh repeat-until dugc thé hiën trén so dó sau. 


Các câu lệnh 


Điều kiện 


Hình P.8. Sơ đồ thực hiện lệnh repeat-until 


Ví dụ 1 
Xét đoạn chương trình: 


repeat 
write('HAY NHAP SO NGUYEN N: '); 
readln(N) 


until (N»0) and (N <= 100); 

Đoạn chương trinh này dùng dé nhập số nguyên N thoả màn diéu kiện 
0< N < 100. Nếu giá trị nguyên đưa vào nằm ngoài khoảng này thì chương trình sẽ yêu 
cầu nhập lại cho đến khi giá trị nhập vào thoả mãn điều kiện. 

Ví dụ 2 

Tính gần đúng ⁄A (A > 0) chính xác đến chữ số thập phân thứ năm theo phương 
pháp lặp Niu-tơn. 

Theo phương pháp пау, ta cần tính dãy Xo, X, Xạ,..., theo công thức: 


x= 


X, elg А у п=0, 1,2, с) 
RE E ims 

Quá trinh lặp kết thúc khi |X„.; = X,| < 0,00001. Giá trị của X,,, được lấy làm giá trị 
gần đúng của МА. 

Input: Giá tri thuc А, nhập vào từ bàn phím. 

Output: Đưa ra màn hinh giá trị gần đúng của ⁄A. 

Ta chỉ cần dùng hai biến thực trung gian XNEW và XOLD để chứa tương ứng các giá 
tị X, và X. 


n 
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Thuàt toán duoc mó tà nhu sau: 

Bước 1. Nhập A; 

Bước 2. XNEW < 1 (giá tri Xo}; 

Buóc 3. XOLD — XNEW (chuyén giá tri mói thành giá tri сй}; 


) {Tính lại giá trị mới theo C; 


Bước 4. XNEW «- 1 (XOLD * А 
2 XOLD 
Bước 5. Nếu |XNEW - XOLD] > 0,00001 thì quay về bước 3; 
Bước 6. Dua giá trị XNEW ra màn hinh, rồi kết thúc. 
Chương trình thể hiện thuật toán trên như sau: 
program CAN BAC 2; 
uses crt; 
var A, XNEW, XOLD: real; 
begin 
slrseérz 
repeat 
write(' A = '); readln(A); (Buoc 1) 
until A > 0; 
XNEW:= 1; (Buoc 2) 


repeat 
XOLD:= XNEW; (Buoc 3) 
XNEW:= (ХОШ + A/XOLD)/2; (Buoc 4) 


until ABS(XNEW — XOLD) < 0.00001; (Buoc 5) 
writeln('Can bac 2 cua ',A:10:5,' la ',XNEW:10:5); (Buoc 6} 
readln 

end. 


6. Càu lënh with 


Trong chương trinh Хер loai ở 813 ta thấy sau câu lệnh for-do mỗi khi truy cập đến 
một trường của biến bán ghi ! op[i], ta đều phải viết: 
Lop[i].«tén trường> 
Nhu vậy, cán xử lí bao nhiêu trường thì phái viết kèm bấy nhiêu lần Lop[j]. Pascal 
cung cấp lệnh with để tham chiếu đến các trường của biến bản ghi một cách ngắn gon 
như sau: 
with <iên biến bản ghi> do 
<câu lênh>; 
Trường (không kèm tên biến bán ghi) trong câu lệnh được hiểu là tường của biến 
bản ghi đó. 
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Vídu 


Ta có thể viết lại chương trinh Xep_loai ở 813 nhu sau: 


program Xep_loai; 
uses crt; 
const Max = 45; 


type HocSinh = record 


HoTen: string[30]; 
NgaySinh: string[10]; 
DiaChi: string[50]; 
Toan,Van: real; 
XepLoai: char; 

end; 
var Іор: array[1..Max] of HocSinh; 
N,i: byte; 
begin 
clrscr; 


write ('So luong hoc sinh trong lop N 


readln(N); 
i:=1 to N do 
with lop[i] do 
begin 


for 


writeln('Cac so lieu ve hoc sinh thu ',i,': 
readln(HoTen); 
readln(NgaySinh); 
readln(DiaChi); 


write('Ho va ten: '); 
"s 
"e 
чё 
Ж 


write('Ngay sinh: 
write('Dia chi: 
write('Diem Toan: 
write('Diem Van: 


if Toan†Van »-18 then 
if (Toan*Van»-14) and 
if (Toan*Van»-10) and 
if Toan*Van«10 then XepLoai:= 
end; 
clrscr; 


XepLoai:= 


ы 


э; 


readln(Toan); 
readln(Van); 


'A'; 


(Toan*Van«l8) then XepLoai:-'B'; 
(ToantVan<l4) then XepLoai:-'C'; 


'D'; 


writeln('Danh sach хер loai hoc sinh trong lop: '); 


for i:- 1 to N do 
writeln(lop[i].HoTen:30, ' 
readin 


end. 


-Xep loai:',lop[i].XepLoai); 
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7. Mët së thóng báo lói 


Lói bién dich (Compiler Error) 


Mã lỗi Thông báo lỗi Ý nghĩa 
1 Out of memory Thiếu bộ nhớ 
2 Identifier expected Phái là tén 
3 Unknown identifier Tên goi chua được mô tả 
4 Duplicate identifier Khai báo lặp một tên gọi 
5 Syntax error Lỗi cú pháp 
6 Error in real constant Lỗi khi viết hằng số thực 
7 Error in integer constant Lỗi khi viết hằng số nguyên 
8 String constant exceeds line Hằng xâu vượt quá một dòng 
9 Too many nested files Quá nhiều tệp lồng nhau 
10 Unexpected end of file Không tìm thấy kết thúc tệp 
11 Line too long Dong quá dài 
12 Type identifier expected Phải là tên kiểu 
13 Too many open files Quá nhiéu tëp dugc mó 
14 Invalid file name тёп tệp không hợp lệ 
15 File not found Không tìm thấy tệp 
16 Disk full Đĩa đầy 
18 | Too many files Quá nhiều tệp. 
20 Variable identifier expected Phái có tén bién 
21 Error in type Lói kiéu 
25 Invalid string length Độ dài хаи không hợp lệ 
26 | Type mismatch Sai kiểu (kiểu không thích hợp) 
30 Integer constant expected Phái là hàng nguyén 
31 Constant expected Phài là hàng 
32 | Integer or real constant expected Phái là hàng nguyén hoác hàng thuc 
34 Invalid function result type Kiểu kết quả của hàm không hop lệ 
36 BEGIN expected Thiếu BEGIN 
37 END expected Thiếu END. 
38 Integer expression expected Phải là biểu thức nguyên 
39 Ordinal expression expected Phải là biểu thức có thứ tự 
40 Boolean expression expected Phải là biểu thức lógic 
41 Operand types do not match Kiéu cüa toán hang khóng phü hop 
42 Error in expression Lë trong biểu thức 
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Illegal assignment 


Сап không hợp lệ 


44 Field identifier expected Phải là tên trường 

50 DO expected Thiếu DO 

54 OF expected Thiếu OF 

57 THEN expected Thiéu THEN 

58 TO or DOWNTO expected Thiéu TO hoác DOWNTO 

60 Too many procedures Quá nhiéu thü tuc 

63 Invalid file type Kiểu tệp không hợp lệ 

64 Cannot read or write variables of this Không thể doc/ghi biến thuộc kiểu 

type dữ liệu này 

66 String variable expected Phải là biến xâu 

67 String expression expected Phải là biểu thức xâu 

74 Constant and case types don't match | Hằng và các kiểu của case không 

phü hop 
75 Record or object variable expected Phải là biến kiểu bàn ghi hoặc đối 
tượng 

76 Constant out ofrange Hằng vượt ra ngoài giới hạn 

7T File variable expected Phải là biến tệp. 

79 Integer or real expression expected Phái là biéu thúc nguyën hoác thuc 
85 expected Thiếu dấu ": 

86 expected Thiếu dấu ":" 

87 ," expected Thiếu dấu "," 

88 "(" expected Thiếu dấu "(" 

89 ")" expected Thiếu dấu ")" 

90 "=" expected Thiếu dấu "=" 

91 expected Thiếu dấu 

92 [' or "(." expected Thiếu dấu "[" hoặc "(." 

98 "l' or ")" expected Thiếu dấu "]" hoặc ".)" 

94 expected Thiếu dấu "." 

95 "_" expected Thiếu dấu ". " 

96 Too many variables Quá nhiều biến 

97 Invalid FOR control variable Biến điều khiển FOR không hợp lệ 
98 Integer variable expected Phải là một biến nguyên 

100 | String length mismatch Độ dài хаи không phù hợp 

101 Invalid ordering of fields Thứ tự các trường không hợp lệ 
102 | String constant expected Phài là hàng xàu 
103 Integer or real variable expected Phái là bién nguyén hoàc thuc 
104 | Ordinal variable expected Phải là biến có thứ tự 
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106 | Character expression expected Phải là biểu thức kí tự 
113 Error in statement Lỗi trong câu lệnh 
117 | Targetaddress not found Không tìm thấy địa chỉ đích 
124 | Statement part too large Thành phán câu lệnh quá lớn 
127 | Too many conditional symbols Quá nhiëu kí hiëu diëu kiën 
132 | Critical disk error Lõi đĩa trầm trong 
139 | Cannot access this symbol Không thể truy cập kí hiệu này 
140 Invalid floating-point operation Phép toán dáu pháy dóng khóng 
hợp lệ 
146 File access denied Không thể truy cập tệp 
Lỗi sinh ra trong quá trình chạy chương trinh (Runtime Error) 
Mã lỗi Thông báo lỗi Ý nghĩa 
2 File not found Không tìm thấy tệp. 
s Path not found Không tim thấy đường dẫn 

100 | Disk read error Lói khi doc dia 
101 Disk write error Lói khi ghi día 
102 | File not assigned Tép chua dugc chi dinh 
103 | File not open Tép chua dugc mó 
104 | File not open for input Tép chưa được mở để nhập dữ liệu 
105 | File not open for output Tép chưa được mở dé xuất dữ liệu 
106 Invalid numeric format Định dạng số không hợp lệ 
150 | Disk is write-protected Đĩa đang được bảo vệ chóng ghi 
152 Drive not ready Thiết bị chưa sẵn sàng 
156 | Disk seek error Lói tim kiém trén dia 
158 |Sector Not Found Khóng tim tháy sector dugc yéu cáu 
162 | Hardware failure Lỗi phần cứng 
200 Division by zero Lỗi chia cho số 0 
201 Range check error Vượt phạm vi khai báo 
202 | Stack overflow error Lói tràn ngán xép 
203 Heap overflow error Lỗi tràn vùng nhớ Heap 
205 | Floating-point overflow Số dấu phẩy động quá lớn 
207 | Invalid floating-point operation Phép toán vói só dáu pháy dóng khóng 


hợp lệ 
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PHỤ LỤC C 


Câu lệnh rẽ nhánh và lặp trong C++ 
а) Саи lệnh ré nhánh 
° Dạng khuyết 
Cú pháp: 
i£ (điều kiện) <cáu lệnh>; 
trong đó; 


— Điêu kiện là biểu thức nhận giá tri lôgic được đặt trong cặp ngoặc tròn ( và ); 
— Câu lệnh là câu lệnh đơn hoặc ghép. 
Khi điêu kiện nhận giá trị đúng thì câu lệnh được thực hiện. 
Ví dụ. Đoạn chương trình sau đây kiểm tra nếu giá trị biến x bằng 100 thì đưa ra 
thông báo "x bang 100": 
if (x == 100) 
cout «« "x bang 100 "; 
* Dang di 
Cú pháp: 
if (điều kiện) <câu lệnh 17; else <câu lệnh 2>; 
Trong câu lệnh này, khi diéu kiện nhận giá trị dung thì câu lệnh 1 được thực hiện, 
ngược lai thì câu lệnh 2 được thực hiện. 
Ví dụ. Đoạn chương trình sau đây kiểm tra nếu giá trị biến x bằng 100 thì đưa ra màn 
hình thông báo "x bang 100", ngược lại thì thông báo "x khong bang 100”: 
i£ (x == 100) 
cout << "x bang 100 "; 
else cout << "x khong bang 100 "; 


b) Câu lệnh lặp 
° Câu lệnh lặp while 

Cú pháp: 

while (điêu kiện) <câu lénh»; 

Trong câu lệnh này, điều kiện là biểu thức nhận giá tri lógic. Trong khi diéu kiện 
còn nhận giá trị đúng thì còn thực hiện câu lệnh. 


Ví dụ. Nhập từ bàn phím một số tự nhiên n (n < 20), đưa ra màn hình các số nguyên 
dương giảm dần từ n đến 1. 
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#include <iostream.h> 
int main() 
t 

int n; 


cout «« "Nhap so nguyen duong n 


(n<20): "; 
cimo» n 


while (n>0) 
cout << n-- << ", "; 
return 0; 
) 


Trong dó cout << n-- hién thi giá tri hién thói cüa n sau dó giám giá tri n mót 
don vi. Vóng láp dugc két thúc khi diéu kién nhàn giá tri sai. Trong ví du trën, giá tri cüa 
n được giảm nhờ toán tử "-—" nên vòng lặp được kết thúc khi n = 0. 


° Câu lệnh lặp do 
Cú pháp: 
do <câu lệnh> while (điêu kiện) ; 


Sau khi thực hiện câu lệnh, vòng lặp sẽ kiểm tra điều kiện, nếu điểu kiện còn nhận 
giá trị đúng thì câu lệnh còn được thực hiện. Điều kiện được tính toán sau khi câu lệnh 
được thực hiện, vì vậy câu lệnh sẽ được thực hiện ít nhất một lần. 


Ví dụ. Đưa ra màn hình số nguyên nào nhập vào từ bàn phím cho đến khi số được 
nhập là 0. 


#include <iostream. h> 
int main () 
{ 

long n; 

do ( 


cout << "Nhap vao mot so nguyen(nhap so 0 de ket thuc): " 
cin >> nz 


cout << "Zo da nhap la: " 
) 
while (n !- 0); 


<< n << "An"; 
return 0; 
} 


e Câu lệnh lặp for 
Cú pháp: 


for (khởi tạo; điều kiện; thay đổii <câu lệnh>; 
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Vòng lặp for thực hiện lặp lại câu lệnh chừng nào điều kiện còn nhàn giá trị đúng 
như trong vòng lặp while. Nhưng trong for còn chứa khả năng khởi tao và khả năng làm 
thay đổi giá trị các biến điều khiển vòng lặp. 


Hoạt động của vòng for như sau: 


Bước 1 


Bước 2 


Bước 3 


Bước 4 


Đầu tiên khỏi tao được thực hiện thường để đặt một giá trị ban đầu cho các 
biến điều khiển, điều này chỉ được thực hiện một lần. 


Điều kiện được kiểm tra, nếu nó nhận giá trị đúng thì саи lệnh được thực 
hiện, ngược lại thì tới bước 4. 


Thay đổi được thực hiện để thay đổi giá trị biến điều khiển, quay về bước 2. 
Kết thúc vòng lặp. 


Ví dụ. Đưa ra màn hình các cặp số tự nhiên khác nhau có tổng bằng 20. 


#include <iostream.h> 


int main() 


for (int n=20,i=0; n!-i; n--,ie4) 
cout << m << ", " << i ««'Mn'; 
return 0; 
Giái thích: 
+ Khởi tạo 
[ Điều kiện 
for (int[m 329]: [mti] ; Ша) 
Thay dói 


Ban đầu có cặp só (n = 20; i = 0) được dua ra màn hinh. Để tao các cặp số khác, 
cho n giảm dần từng đơn vi, đồng thời / táng dần từng đơn vi (dé tổng của chúng vẫn 
bằng 20). Vòng lặp kết thúc khi gặp cặp số (n = 10; i = 10). 
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